Question

Дан массив К из 15 целых случайных чисел из интервала [0,50]. Найти в массиве: к5 – количество чисел, кратных 5, к3 – количество чисел, кратных 3.

Answer 1

Const n=15;
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5:=0; k3:=0;
for i:=1 to n do
a[i]:=random(51);
for i:=1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.