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

Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел, кратных 3.
Пример работы программы:
Входные данные:3, 12, 26, 24 Выходные данные:2

Answer 1

Var a,b,i ,s:integer;
begin
readln(a);
for i:=1 to a do begin
readln(b);
if b mod 3=0 then
s:=s+1;
end;
writeln(s);
end.