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

Question

Информатика

Савина

18 января, 06:55

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

+5

Ответы (1)

Знаете ответ?

Евгена · 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.