Составить программу нахождения произведения 20 введенных пользователем чисел.

Question

Составить программу нахождения произведения 20 введенных пользователем чисел.

Comments

Массив изучали?

Answer 1

Var i,m:integer;
mass:array[1..20] of integer;
begin
for i:=1 to 20 do
read(mass[i]);
m:=mass[1];
for i:=2 to 20 do
m:=m*mass[i];
writeln(m);
end.

Comments

Это паскаль?

---

да

---

Выражено через массивы

---

var a,b,i:integer;
begin
b:=1;
for i:=1 to 6 do begin
read(a);
b:=b*a;
end;
write(b);
end.

---

Упс

---

var a,b,i:integer;
begin
b:=1;
for i:=1 to 20 do begin
read(a);
b:=b*a;
end;
write(b);
end.

---

Если не изучали массивы