var a: array [1..10] of integer;
max, i : integer;
n: integer;
begin
for i:=1 to10 do {Ввод элементов массива с клавиатуры}
read(a[i]);
n:=0 ; {Обнуляем счетчик элементов массива кратных 3}
for i:=1 to10 do {Проверяем есть среди элементов массива элемент кратный 3, если да, то увеличиваем счетчик n на 1}
if a[i] mod 3=0 then n:=n+1;
writeln('Количество элементов кратных 3:', n);
end.
Объяснение:
