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

1

Ответы и объяснения

2014-02-02T19:44:37+00:00
Program mass;
uses crt;
const N=30;
var L:array[1..N] of integer;
i,k:integer;
begin
clrscr;
randomize;
k:=0;
for i:=1 to N do
begin
L[i]:=random(40);
if L[i]<10 then
i:=i-1
else
begin
write(L[i]:4);
if L[i] mod 3=0 then
k:=k+1;
end;
end;
writeln(k);
end.