Xin câu trả lời hay nhất ạ!

CÂU 1: 

*Tăng dần 

program ct;

ues crt;

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

      i,j,n,tg:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

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

     end;

   for i:=1 to n-1 do

   for j:=i+1 to n do

     if A[i]>A[j] then

        begin

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu tang dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

*Giảm dần

program ct;

ues crt;

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

      i,j,n,tg:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

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

     end;

   for i:=1 to n-1 do

   for j:=i+1 to n do

     if A[i]<A[j] then

        begin

           tg:=A[i];

           A[i]:=A[j];

           A[j]:=tg;

        end;

   writeln('Day so sap xep theo thu tu giam dan la: ');

   for i:=1 to n do

     write(A[i]:3);

readln;

end.

CÂU 2: 

Program cau2 ;

Uses crt;

Var i,n,Max,Min:integer;

S:longint;

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

Begin

Clrscr;

S:=0;

Write('nhap n tu ban phim');

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

   Max:=A[1]; Min:=A[1];

For i:=2 to n do

   Begin

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

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

    end;

Write('so nho nhat la',Min);

Write('so lon nhat la',Max);

Readln

End.