Сколько четных элементов в массиве 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.