program bt;
var a:array[1..9999] of longint;
n,tb,dem: longint;
writeln ('nhap n'); readln (n);
for i:= 1 to n do
begin
writeln ('nhap pt thu ' , i, '' );
readln (a[i]);
end;
tb:= 0;
for i:=1 to n do
begin
tb := tb+a[i] ;
dem:= dem+1;
end;
tb:= tb/dem;
writeln ('gia tri tb la',tb);
readln
end.
Nho vote cho minh nha