Помогите написать программу на языке Паскаль. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Кто правильно напишет поставлю лучшее решение!!!

Просили найти количество чисел, кратных 4.

достаточно приписать еще одну переменную и делать инкреминг

Спасибо, теперь верно!

Так припишите.

var a: array [1..100] of integer;chis,i: integer;beginreadln(chis);for i:=1 to chis do readln(a[i]);write('Числа кратные 4:');for i:=1 to chis do if (a[i] mod 4 = 0) then write(a[i], ' ');end.

var n,a,i,k:integer;beginwrite('n = ');readln(n);k:=0;writeln('Вводите числа:');for i:=1 to n do begin readln(a); if a mod 4 = 0 then k:=k+1; end;writeln('k = ',k);end.Пример:n = 5Вводите числа:1524734894k = 2