Question

Ввести массив с помощью счетчика случайных чисел и найти произведение элементов массива (Формула)

Answer 1

program mas_proiz_el;

const n=10;

var

p:array[1..n] of integer;

i,mp:integer;

begin

for i:=1 to n do begin

p[i]:=random(101);

write(p[i],' ');

end;

writeln;

mp:=1;

for i:=1 to n do

mp:=mp*p[i];

writeln;

write(mp)

end.