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

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

Задать свой вопрос
Грубниченко Тимур
Массив изучали?
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.
Есения
Это паскаль?
Егор Ацтынь
да
Денис
Выражено через массивы
Максим
var a,b,i:integer;beginb:=1;for i:=1 to 6 do beginread(a);b:=b*a;end;write(b);end.
Данька
Упс
Галина
var a,b,i:integer;beginb:=1;for i:=1 to 20 do beginread(a);b:=b*a;end;write(b);end.
Оленька Поэднякова
Если не изучали массивы
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт