Ответы на вопрос:
Турбо паскаля нет, вставьте первым оператором uses crt const n = 20; var x: array[1..n] of real; i: integer; sp, sn: real; begin randomize; write('элементы массива: '); sp : = 0; sn : = 0; for i : = 1 to n do begin x[i] : = (random(101) - 50) / 1.33; write(x[i]: 0: 5, ' '); if x[i] > 0 then sp : = sp + x[i] else if x[i] < 0 then sn : = sn + x[i]{нули тоже сюда, они не мешают} end; writeln(#13#10, 'сумма положительных=', sp: 0: 5, ', отрицательных=', sn: 0: 5) end. тестовое решение: элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504 сумма положительных=239.84962, отрицательных=-97.74436
Популярно: Информатика
-
котбутерьрод18.09.2020 17:33
-
ksdaga17.03.2020 14:21
-
daria20020506.06.2020 20:15
-
yanazaharova9612.01.2023 00:24
-
Камилла100418.11.2020 18:40
-
luya2129.01.2020 10:28
-
Matthi17.03.2020 00:06
-
poeticclown29.12.2020 17:55
-
Yaroslav3436425.10.2020 11:35
-
Маруся20303.10.2021 20:48