program BT_mang;

uses crt;

var A:array [1..500] of integer;

      n,i,TB,thunhapTB: integer;

Begin

         clrscr;

         write('Nhap so ho gia dinh: '); readln(n);

         for i:=1 to n do

         begin

                  write('Ho ',i,' (d): '); readln(A[i]);

                  thunhapTB:=thunhapTB+A[i];

         end;

         writeln('Thu nhap trung binh cua cac ho: ',thunhapTB/n:2:0,'d');

         writeln('Nhap muc thu nhap trung binh: '); readln(TB);

         for i:=1 to n do writeln('Ho ',i,' lech voi muc TB: ',A[i]-TB,'d');

         readln

End.

Mình cho chương trình về tìm số lớn nhất và nhỏ nhất nha

program min_max;

uses crt;

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

     n,i,min,max:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       for i:=1 to n do

             begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       min:=A[1];  max:=A[1];

       for i:=2 to n do

              begin

                     if A[i]<min then min:=A[i];

                     if A[i]>max then max:=A[i];

              end;

       writeln('Gia tri nho nhat la: ',min);

       writeln('Gia tri lon nhat la: ',max);

       readln;

end.