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

Question

Информатика

Ледя

30 декабря, 03:57

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

+1

Ответы (1)

Знаете ответ?

Груша · 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.