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

Var

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

i, k:integer;

begin

writeln ('Исходный массив') ;

k:=0;

for i:=1 to 15 do

begin

a[i]:=random (30) + 10;

write (a[i]:3) ;

end;

writeln;

writeln ('Числа кратные 3') ;

for i:=1 to 15 do

if (a[i] mod 3 = 0) then

begin

write (a[i]:3) ;

inc (k) ;

end;

writeln;

write ('Таких чисел - ', k) ;

end.