Заполнить массив случайными числами из промежутка (1-100) и определить в массиве W[1 ... 30]произведение нечётных чисел кратных 5

Question

Информатика

Серафим

29 декабря, 23:47

Заполнить массив случайными числами из промежутка (1-100) и определить в массиве W[1 ... 30]произведение нечётных чисел кратных 5

+4

Ответы (1)

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

Руфь · Answer 1

Var i, pr:integer;

w:array[1 ... 30] of integer;

begin

pr:=1;

for i:=1 to 30 do begin

w[i]:=random (101) ;

if (w[i] mod 20) and (w[i] mod 5=0) then pr:=pr*w[i];

end;

writeln (pr) ;

end.