В массиве B (10) найти произведение всех элементов массива. ​

var arr: array[1..10] of integer;

res: longint;

begin

res:=1;

for var i:=1 to 10 do

begin

readln(arr[i]);

res*=arr[i];

end;

writeln('Произведение всех элементов массива: '+res);

end.

Объяснение: