Question

Дан массив из 200 элементов , найти произведение всех элементов массива  решить на паскале  

Answer 1

begin

// если нужно считать массив, то удали эту строку, кроме кода var a := //ReadArrInteger(200);

var p := 1;

for var i := 0 to a.Length -1 do

begin

p *= a[i];

end;

println(p);

end.