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

Question

Информатика

Леруня

21 августа, 07:06

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

+3

Ответы (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.