var a:array[1..50] of integer; i,n:integer; s,tb:real; begin s:=0; write('Nhap phan tu mang'); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(A[i]); end;
for i:=1 to n do s:=s+A[i]; tb:=s/n; write('Trung binh cong la',tb:3:2); readln end.
