Ответы на вопрос:
Const n = 50; var a : array [1..n] of integer; i, sum : integer; sr : real; begin randomize; for i: = 1 to n do a[i]: = random(100); for i: = 1 to n do sum: = sum + a[i]; sr: = sum/n; writeln(sr); end.
Популярно: Информатика
-
dashamaer113.02.2022 15:32
-
Софочкакошечка1310.08.2020 15:59
-
УльянаТонких01.08.2022 16:12
-
helpplease1421.12.2021 06:19
-
123435323429.06.2020 22:25
-
DariaTheBest519.01.2021 06:33
-
unikornio10.11.2021 08:19
-
fairytale828.09.2022 05:13
-
HeliaK13.04.2020 09:02
-
miro4ka454607.04.2022 07:20