Ответы на вопрос:
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.
Популярно: Информатика
-
HsbHbaj26.02.2020 14:42
-
ViolettAHS26.08.2020 00:59
-
lholkina09.09.2020 02:17
-
мне1619.01.2020 12:59
-
zemdy92621.07.2020 18:25
-
natalimironenko19.10.2020 11:54
-
aitdariya09.03.2022 17:20
-
stars2808200307.08.2022 21:12
-
geralis728p0bgjl03.08.2021 23:14
-
shurik2302198330.11.2020 21:28