Question

Pascal ABC . Срочно !!!!!!

Заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [ 10;99], вычислить количество четных элементов массива

Answer 1

program z;
var a:array[1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(10,99);
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to 20 do
if a[i] mod 2=0 then k:=k+1;
writeln(k);
end.