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

Ответ:

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.  

Объяснение: