program thunhap;

uses crt;

var i,n: integer;

      A: array[1..1000] of integer;

begin

write('Hay nhap so ho gia dinh,N= ');

readln(n);

writeln('Nhap thu nhap của moi ho gia dinh:');

for i:=1 to n do

begin

write('A[',i,']=);

readln(A[i]);

end; 

Còn lại thì mik không biết làm... D:

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.