var sum,n,i,k:integer;
a:array[1..100000] of integer;
begin
sum:=0;
k:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); sum:=sum+a[i]; k:=k+1; end;
writeln(sum/k);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var sum,n,i,k:integer;
a:array[1..100000] of integer;
begin
sum:=0;
k:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); sum:=sum+a[i]; k:=k+1; end;
writeln(sum/k);
end.