Ответы на вопрос:
Var a: array[1..100] of integer; i,p,m: integer; begin p: =0; m: =0; for i: =1 to 100 do begin a[i]: =random(-20,20); if a[i]> 0 then p+=1 else m+=1; end; writeln('положительных - ',p,' отрицательных - ',m); end.
Популярно: Информатика
-
ed3112102.11.2022 05:29
-
Cверхъестественное28.11.2022 07:51
-
ekaterina040505.12.2020 02:15
-
kostija7325.08.2020 22:44
-
димас20312.11.2021 02:33
-
makesim16.07.2020 10:36
-
kurban05209.12.2020 04:41
-
Двоищник23414.04.2021 02:03
-
Nemuverus20.04.2020 09:25
-
ятебемогупомоч03.05.2021 23:27