var
a:array of integer;
i,n,count:integer;
function Ss(m:integer):boolean;
var
sum:integer;
begin
sum:=0;
repeat
sum:=sum+ m mod 10;
m:=m div 10;
until m=0;
if sum mod 2 = 0 then
Ss:=true
else Ss:=false;
end;
begin
write('Размерность массива: '); readln(n);
setlength(a,n); dec(n);
count:=0;
for i:=0 to n do
begin
a[i]:=random(401)-200;
if Ss(a[i]) then
inc(count);
write(a[i]:5);
end;
writeln;
writeln('Кол-во: ',count);
end.
