Предмет: Информатика,
автор: litvinovroman
Найдите среднее арифметическое массива А
(Паскаль)
Ответы
Автор ответа:
0
var x:array[1..100]:real;
k,s,p:integer;
begin
writeln(`количестов элементов в массиве`);
readln(n);
writeln(`введите массив`);
for k:=1 to n do
readln(x);
s:=0;
for k:=1 to n do
s:=s+x[k];
s:=s/n;
writeln(s);
k,s,p:integer;
begin
writeln(`количестов элементов в массиве`);
readln(n);
writeln(`введите массив`);
for k:=1 to n do
readln(x);
s:=0;
for k:=1 to n do
s:=s+x[k];
s:=s/n;
writeln(s);
Похожие вопросы
Предмет: Математика,
автор: oleg3313
Предмет: Литература,
автор: elyacher00
Предмет: Биология,
автор: topgrx122
Предмет: Математика,
автор: Аноним
Предмет: Информатика,
автор: stefadi53