Ответы на вопрос:
Program t1; const n=20 var i, x, s : integer; t: string; m1: array [1..n] of integer; begin s : = 1; for i : = 1 to n do begin x : = m1[i]; if (x < > 0) then s : = s * x; end; writeln('ответ ',s); end; end.
Популярно: Информатика
-
Kunizhevajenya21.10.2021 00:57
-
lari13327.02.2021 20:05
-
кадитагаев17.10.2022 03:02
-
polinna2006p06aeo07.11.2020 11:51
-
мага762602.10.2020 14:33
-
1venera421.03.2022 14:32
-
тима15619.02.2020 07:59
-
veselskih199809.09.2020 22:14
-
chuckcher08.05.2022 23:36
-
Qwer94819.06.2023 01:16