Question

Используя функцию random, найти все числа кратные 5 в паскале,массив взять 25 элементов,диаозон от -100 до 100

Answer 1

Program mas;
const n=25;
var a:array [1..n] of integer;
 b,i: integer;
 begin
b:=0;
for i:=1 to n do
begin
a[i]:=random(200)-100;
if (a[i] mod 5)=0 then
b:=b+1;
end;
writeln('Массив: ',a,', количество элементов кратных 5: ',b);
end.