Составьте программу, которая заполняет массив s [1 ... 15] случайными целыми числами в диапазоне от - 15 до 5 и находит количество элементов кратных 3.

program massiv;

var a: array[1 ... 15] of integer;

i, kol: integer;

begin

writeln ('Включаем генератор случайных чисел');

randomize;

writeln ('Заполняем массив');

for i:=1 to 15 do a[i]:=random (-15);

writeln ('Подсчитываем');

for i: = 1 to 15 do if a[i] mod 3 = 0 then kol : = kol + 1;

writeln ('Количество чисел, кратных 3 равно', kol);

end.