Question

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

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

Answer 1

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.