Дан одномерный массив. опредилить количество элементов кратных трем.​

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.  

Объяснение: