Задан массив Н из чисел N (N = 16) случайным образом в диапазоне [-9 ... 9]. Найти количество четных элементов массива.

Const n=16;

var h: array[1 ... n] of integer;

i, sm: integer;

begin

sm:=0;

randomize;

write ('массив: ') ;

for i:=1 to n do

begin

h[i]:=random (-9,9) ;

write (h[i],' ') ;

if h[i] mod 2 = 0 then sm:=sm+1;

end;

writeln;

writeln ('количество четных: ', sm) ;

end.

массив: - 7 - 4 - 3 - 7 - 2 6 1 - 1 3 5 - 2 - 3 5 7 - 3 5

количество четных: 4