Ответы на вопрос:
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.
Популярно: Информатика
-
12СоловьёваАнна15.11.2021 01:14
-
ksushakorovina114.10.2020 09:55
-
gtagiev09.05.2020 01:19
-
aleksa60429.03.2022 10:14
-
gurboolga06.05.2023 14:15
-
VladiusFirst25.10.2022 17:47
-
эля77912.11.2020 19:54
-
vasilprokofiev31.01.2020 17:31
-
vikonil30.08.2022 02:09
-
Регина55712.09.2020 16:53