Составить программу нахождения произведения 20 введенных пользователем чисел.
Составить программу нахождения произведения 20 введенных пользователем чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы