Tính trung bình cộng:
 var a,n,tong,i:integer; 
tbc: real; 
begin 
writeln('Nhap n'); readln(n); 
tong:=0; 
i:=1 to n do 
tong:=tong+a[i]; 
tbc:=tong/n; 
writeln('trung binh cong cac so ban vua nhap la',trung binh cong:10:2); 
readln; 
end.