помощь!!!!!!

Ответы:

uses crt,

const n=12,

var m:array[1..n] of integer,

k,s,i:integer,

begin

randomize,

for i:=1 to n do

begin

m[i]:=random(9)+1,

writeln(m[i]),

if m[i] mod 2&lt,&gt,0 then begin inc(k), s:=s+m[i], end,

end,

writeln,

writeln(k),

writeln(s),

end.