Найдите среднее арифметическое массива А (Паскаль)
Answers & Comments
kotovandrei95
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);
Answers & Comments
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);