Заполнить массив L[15] случайными числами в интервале от 10 до 40, вывести его на экран и найти количество чисел кратных 3.

program krat_3;

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

k: integer;

begin

randomize;

for i:integer:=1 to 15 do

begin

L[i]:=random (31) + 10; / /Присвоение элементу L[i] значения

/ / равного случайному числу

if L[i] mod 3 = 0 then k: = k + 1; / /Условие для счетчика кратных чисел

write (L[i]:4); / /Вывод элементов массива на экран

end;

writeln (); write ('Количество чисел, кратных трем: ', k)

end.