Используя функцию random, найти все числа кратные 5 в паскале,массив взять 25 элементов,диаозон от -100 до 100
Используя функцию random, найти все числа кратные 5 в паскале,массив взять 25 элементов,диаозон от -100 до 100
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы