Сколько четных элементов в массиве A[n]. (В массиве n- элементов). Задано сначала число n(количество элементов массива, а затем N элементов массива). Все числа - из диапазона Integer
begin
k:=0;
for i:=1 to n do
if A[i] mod 2 =0 then k:=k+1;
write(k);
end.