программка на языке Паскаль

Программка на языке Паскаль

Задать свой вопрос
1 ответ

const n=10;

var a:array[1..n] of integer;

i: integer; p: longint;

begin

writeln('Введите элементы массива:');

for i:=1 to n do read(a[i]);

p:=1;

for i:=1 to n do p:=p*a[i];

writeln('p = ',p);

end.

Пример:

Введите элементы массива:

2 -3  4  1 8 -1 5 -7 -2 3

p = 40320

Эльвира Афнасьева
for i:=1 to n do read(a[i]);p:=1;for i:=1 to n do p:=p*a[i];
Альтиментова Оксана
У тебя вроде в этих строках ошибку выведет
Артём Браунов
изменение переменной в цикле
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт