program oken;
uses crt;
var sum:real;
    n,i:longint;
    a: array[1..1000] of real;
begin
        clrscr;
        write('nhap so so phan tu cua mang: '); readln(n);
        sum:=0; i:=1;
        while i<=n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        sum:=sum+a[i];
                        i:=i+1;
                end;
        writeln('TBC=',sum/n:0:3);
        readln;
end.