Ответы на вопрос:
Var a: array[0..99] of integer; i,pol,otr: integer; begin for i: =0 to 99 do begin a[i]: =random(41)-20; end; for i: =0 to 99 do begin if a[i]> 0 then inc(pol); if a[i]< 0 then inc(otr); end; writeln('положительных: ',pol); writeln('отрицательных: ',otr); end.
Популярно: Информатика
-
angel2006200627.07.2022 07:37
-
manovskidominik03.04.2023 02:45
-
LidaTetyorkina10.11.2020 10:47
-
milanatkaleeer20.02.2023 06:05
-
lilipute201727.11.2022 02:05
-
380974769507p06wmj06.06.2021 21:38
-
dana08504.03.2021 16:32
-
SashaKo942007.08.2021 13:17
-
daniil609200221.01.2023 13:35
-
ева51827.11.2020 08:24