Ответы на вопрос:
Если нужно на паскале: program test; var mas : array[1..15] of integer; sum : integer; otr : integer; i: integer; begin sum : = 0; otr : = 0; randomize; for i: =1 to 15 do begin mas[i] = -50 + random(100); sum : = sum + mas[i]; if mas[i] < 0 then otr : = otr + 1; end; writeln ('сумма: ' + sum); writeln ('количество отрицательных элементов: ' + otr); end.
Популярно: Информатика
-
yulia378925.12.2020 01:47
-
imail9124.03.2022 22:26
-
molik11110507.01.2020 04:04
-
snoman08.06.2023 22:42
-
pugachyowaan04.05.2021 19:19
-
английскийязык1421.02.2023 03:04
-
zayetsnataki29.03.2021 21:36
-
San4ic24.07.2022 08:38
-
ttleuberlin18.06.2023 21:08
-
Pacan4ikForever12.11.2022 21:43