составить программу вычисления произведения элементов массива В, если массив состоит из 10 элементов введенных с клавиатуры.

Помогите пожалуйста)

1

Ответы и объяснения

2013-11-28T17:39:40+04:00
Uses crt;
const n=10;
var b:array[1..n] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to n do
begin
readln(b[i]);
pr:=pr*b[i];
end;
writeln(pr);
end.