program tbc; uses crt; var a: array [1..100] of integer; i,s,n: longint; begin clrscr; write('Nhap so phan tu cua mang A: '); readln(n); for i:=1 to n do begin write('A[',i,']: '); readln(a[i]); s:=s+a[i]; end; writeln('TBC cua mang: ',s/n:0:3); readln; end.
