Ответы на вопрос:
Var m: array [1..100] of integer; s,i,n: integer; begin write('введите кол-во чисел (n): '); readln(n); writeln('введите ',n,' чисел: '); for i: = 1 to n do begin readln(m[i]); s: =s+m[i]; end; writeln('среднее арифметическое: ',s/n); end.
Популярно: Информатика
-
Swetlana1111120.07.2021 06:10
-
sidorova12344116.06.2020 15:12
-
pamjatnichaja10.05.2020 03:32
-
yanaolok16.03.2023 13:17
-
Katya12435409.08.2021 14:36
-
Skapisheva1515151506.11.2020 04:53
-
uoo3277108.10.2022 17:01
-
ruzhovaelizave03.03.2020 12:12
-
tokio328.06.2023 13:38
-
funtya7729.03.2023 01:41