Ответы на вопрос:
Program n1; const n=10; var a: array [1..n] of integer; i,p: integer; begin p: =1; for i: =1 to n do readln(a[i]); for i: =1 to n do if a[i]< > 0 then p: =p*a[i]; writeln(p); end.
Популярно: Информатика
-
rostikptashnik11.08.2022 20:22
-
serpgo16.04.2022 14:22
-
Korish200504.09.2021 04:13
-
neologisms30.03.2020 05:55
-
ЛизаПру12.11.2020 20:27
-
Fluttys03.12.2021 11:27
-
anya19080408.03.2022 07:03
-
alexey100920.03.2020 10:40
-
Емина24.06.2022 15:05
-
Karina098031.08.2022 20:56