Дан массив целых чисел от 0 до 20, заполненный случайными числами в интервале [0,100]. Определить количество элементов массива кратных 3.

program zz1;

const n = 20; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [0 ... n] of integer;

begin

for i:=0 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (101);

for i:=0 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=0 to n do

if m[i] mod 3 = 0 then k:=k+1; / / проверяем, если элемент массива делится на три без остатка, то считаем его

write (' количество таких членов = ', k); / / выводим ответ

end.