Ответы на вопрос:
Program sadadasf; var i,l,h,g: integer; a: array[1..101] of integer; begin for i: =1 to 100 do begin l: =random(41)-20; a[i]: =l; if l< 0 then h: =h+1; if l> 0 then g: =g+1; end; writeln('количество отрицательных чисел: ', h); writeln('количество положительных чисел: ', g); end.
Популярно: Информатика
-
Докторгоспарарнери01.05.2020 15:48
-
superrobbot200012.09.2020 09:23
-
PaFaS12318.12.2022 09:57
-
222вовчик22215.06.2020 22:47
-
darova120513.04.2021 16:42
-
SabZero5521.12.2020 15:18
-
zangalievaira09.04.2020 11:45
-
vgorelova6209.12.2022 18:49
-
Раяна77115511.06.2022 11:19
-
Marina2015111121.01.2022 19:35