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

Question

Информатика

Фадей

13 августа, 14:35

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

+3

Ответы (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.