program thu_nhap_trung_binh;

uses crt;

var A:array[1..1000] of longint;

      n,i:integer;

      t:longint;

begin

       clrscr;

       write('Nhap so ho dan: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap thu nhap cua gia dinh thu ',i,': ');  readln(A[i]);

                     t:=t+A[i];

              end;

       write('Thu nhap trung binh o khu pho la: ',t/n:0:0);

       readln;

end.