Посчитать, сколько в массиве из 10 элементов четных чисел. Элементы массива вводятся с клавиатуры.

Var

A: array [1 ... 10] of integer;

i, count : byte;

begin

count : = 0;

for i : = 1 to 10 do

begin

write ('Введите A[', i, '] = ') ;

readln (A[i]) ;

if A[i] mod 2 = 0 then

count : = count + 1;

end;

for i : = 1 to 10 do

write (A[i]:4) ;

writeln;

writeln ('Количество четных элементов = ', count) ;

end.