составить программу вычисления произведения элементов массива В, если массив состоит из 10 элементов введенных с клавиатуры.
Помогите пожалуйста)
Answers & Comments
yasadc
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.
Answers & Comments
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.