Регистрация
Данил3472
13.07.2020 00:12
Информатика
Есть ответ 👍

ФЗ. Выполни в тетради. Укажи соответствие.

266
424
Посмотреть ответы 1

Ответы на вопрос:

АнютаАс
АнютаАс
4,7(93 оценок)
Var z: array[1..100] as integer; p: integer; i,n: integer; begin reset(input,'input.txt'); rewrite(output,'output.tx); readln(n); for i: =1 to n do readln(z[i]); p: =1; for i: =1 to n do p: =p*z[i]; writeln(p); close(input); close(output); end.

Популярно: Информатика