program tinhtongtien;

uses crt;

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

      n,i:byte;

      s,max:longint;

begin

clrscr;

write('Nhap so luong thanh vien ung ho: ');   readln(n);

writeln('NHAP SO TIEN TUNG BAN UNG HO');

for i:=1 to n do

 begin

  repeat

   write('Ban thu ',i,' ung ho: ');

   readln(A[i]);

   if (A[i]>200000) or (A[i]<1000) then write('So tien ung ho phai tu 1000->200000');

  until (A[i]<=200000) and (A[i]>=1000);

 end;

s:=0;  max:=A[1];

for i:=1 to n do

 begin

   s:=s+A[i];

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

 end;

writeln('Tong so tien ung ho la: ',s);

writeln('Ca nhan ung ho tien lon nhat la: ',max);

readln

end.

uses crt;
var i,n:byte;
    st:string;
    a:array[1..100] of longint;
    max,tong:longint;
BEGIN
        clrscr;
        write('NHAP SO LUONG BAN UNG HO:'); readln(n);
        writeln('NHAP SO TIEN TUNG BAN UNG HO:');
        max:=0; tong:=0;
        for i:=1 to n do
        begin
                write('NHAP SO TIEN BAN THU ',i,' UNG HO:');
                readln(a[i]);
                tong:=tong+a[i];
                if a[i]>max then max:=a[i];
        end;
        writeln('TONG SO TIEN UNG HO LA:',tong);
        write('SO TIEN CA NHAN UNG HO LON NHAT LA:',max);
        readln
END.

Chúc bạn học tốt.

Cho mình câu trl hay nhất nha.