Question

массив состоит из 12 элементов(случайные числа от 3 до 10). найти произведение его элементов.

Answer 1

program p1;
const n=12;
var a:array[1..12] of integer;i:integer;p:biginteger;
begin
p:=1;
randomize;
for i:=1 to n do
begina[i]:=random(3,10);
end;
for i:=1 to n do
begin 
p:=p*a[i];
end;
writeln(p);
end.