program oken; uses crt; var a: array [1..100] of integer; i,n,s:integer; begin clrscr; write('nhap so tu nhien can nhap: '); readln(n); s:=0; for i:=1 to n do begin write('nhap so tu nhien thu ',i,': '); readln(a[i]); s:=s+a[i]; end; writeln('TBC cua ',5,' so tu nhien: ',s/n:0:3); readln; end.
