Ответы на вопрос:
//прога на pascal`e var a : array[1..10] of shortint; i: byte; count1, count2 : integer; begin randomize; write ('сформированный массив: '); for i: =1 to 10 do begin a[i]: =random (99)-49; write (a[i], '; '); if a[i]> 0 then inc(count1, a[i]) else inc(count2, 1); end; writeln (); writeln ('сумма положительных элементов: ',count1); write ('кол-во отрицатедьных элементов : ', count2); end.
Популярно: Информатика
-
Катя44441111.01.2020 21:11
-
Angel489231.07.2021 18:59
-
Hexihexi16.10.2021 04:59
-
KLIN5029.03.2022 16:17
-
Lilit6669603.01.2023 09:13
-
Soldat09809.01.2023 22:29
-
Traken27.06.2020 03:30
-
kisuli116.11.2020 07:29
-
енот25202.12.2020 04:35
-
cisjxhskxhha16.07.2021 14:43