Ответы на вопрос:
Const nn=100; var i,n,d: integer; a: array[1..nn] of integer; begin write('n = '); read(n); randomize; d: =0; for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i]> 0 then d: =d+1 else if a[i]< 0 then d: =d-1 end; writeln; if d> 0 then writeln('положительных чисел больше') else if d< 0 then writeln('отрицательных чисел больше') else writeln('положительных и отрицательных поровну') end. пример n = 13 -1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7 положительных чисел больше
Популярно: Информатика
-
salome5toriy28.02.2022 15:12
-
alyvolkonskaya39463804.12.2021 07:00
-
AlinaTishka23.09.2022 12:25
-
miloserdova240402.05.2020 02:15
-
lokotkovasveta30.07.2021 23:01
-
sandra556614.09.2021 12:52
-
13371910.06.2021 10:37
-
vladdubrovskiy107.12.2021 20:19
-
Amirkazakov12.10.2021 06:24
-
ilyanachkebiya13.06.2021 15:21