Дан одномерный массив из 30 цельных чисел составте програму для вычисления количества чётных элементов массиа

program zz1;

const n = 30; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer; / / задаем массив на n элементов целого типа

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do / / организуем цикл

if m[i] mod 2 = 0 then k:=k+1; / / проверяем, если число при делении на два дает в остатке ноль, то считаем его

write (' количество четных элементов массива = ', k); / / выводим ответ

end.