Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.
var
a: array [1..1000] of integer;
N: integer;
i: integer;
Product: integer;
begin
cnt := 0;
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
begin
read(a[i]);
if (a[i] mod 4 = 0) then
begin
cnt = cnt + 1;
end;
end;
write('Количество элементов кратных 4: ', cnt);
end.