var
i,a,count,sum:integer;
begin
count:=0; sum:=0;
write('Кол-во чисел: '); readln(a);
for i:=1 to a do
a:=random(11)+10;
write(a:4);
if a mod 2 = 0 then
inc(count);
sum:=sum+a;
end;
writeln;
write('Sum: ',sum,' Count: ',count);
end.1
var
i,a,count,sum:integer;
begin
count:=0; sum:=0;
write('Кол-во чисел: '); readln(a);
for i:=1 to a do
begin
a:=random(11)+10;
write(a:4);
if a mod 2 = 0 then
begin
inc(count);
sum:=sum+a;
end;
end;
writeln;
write('Sum: ',sum,' Count: ',count);
end.1