Ответы на вопрос:
uses crt; varmax, i , n,k : integer; m: array [1..100] of integer; beginreadln (n); k: = 1; for i: =1 to n doread (m[i]); for i: =1 to n doif m[i]> 0 then begin k: = k*m[i]; end; writeln; writeln (k); readkey; end.
Популярно: Математика
-
Masha2017thebest27.02.2021 22:19
-
alexandrasharapova06.02.2021 05:28
-
Андрей20171110.07.2021 10:01
-
ашиоку19.05.2021 15:19
-
zLimboz06.01.2023 20:32
-
Selik123411.06.2020 14:54
-
Negogda18.04.2021 05:06
-
Lilia5559027.11.2021 20:22
-
Маркіза119.04.2022 03:03
-
Vasyok22827.12.2022 06:49