Write a program that calculates the arithmetic mean of n numbers entered from the keyboard. (Pascal)
| November 26, 2020 | education
Program qq;
Var a,i,n,s:integer; p:real;
Begin
s:=0;
p:=0;
readln(n);
for i:=1 to n do begin
readln (a);
s:=s+a;
end;
p:= s/n;
writeln (p:6:4);
End.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
