Ответы на вопрос:
Var a: array [1..10] of integer; i, sum: integer; sr: real; begin sum : = 0; for i : = 1 to 10 do read (a[i]); for i : = 1 to 10 do sum : = sum + a[i]; sr : = sum/10; writeln ('среднее арифметическое = ', sr); end.
Популярно: Информатика
-
youngfng29.04.2021 12:54
-
qoqo528.06.2020 04:27
-
vladkunets7815.05.2022 20:57
-
TheSpace24.09.2020 14:58
-
kartew07.11.2020 00:28
-
denishr0609.11.2021 15:24
-
starpuckstarpuck20.03.2022 16:41
-
gulnazira200528.09.2020 03:37
-
dasha246813517.01.2023 09:21
-
Silwashka9916.05.2023 00:01