Задание

Соберите программу. Введите количество случайных элементов массива от 0 до 100 и выведите их на экран. Подсчитайте и выведите количество четных элементов массива.

var i,k,n:integer;

a:array[1..10000] of integer;

begin

randomize;

readln(n);

for i:=1 to n do begin

a[i]:=random(100);

write(a[i], '

if a[i] mod 2=0 then k:=k+1;

end;

write('k=', k);

end.