Ответы на вопрос:
Const n=10; var b,c; a: array [1..n] of integer; begin b: =0; c: =0; for i: = 1 to n do if a[i]> 0 then b: =a[i]+b else inc(c); writeln(b,' ', c); end.
Популярно: Информатика
-
allteennkka198512.10.2022 00:37
-
простолера217.08.2022 13:43
-
Дурашка00804.04.2021 12:30
-
7913452312120.01.2020 16:28
-
korsukova61oye48j24.04.2022 03:38
-
maschachmil15.07.2022 13:25
-
ViktorNi20.09.2022 14:10
-
sanyabuzin04gd22.11.2022 14:39
-
erro1426.03.2023 11:42
-
Iliyz25.03.2022 07:12