1/

uses crt;

var a: array[1..250] of integer;

      n,i,min: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');  readln (a[i]);

if min>a[i] then min:=a[i];

end;

writeln ('so nho nhat: ',min);

readln;

end.

2/

uses crt;
var a: array[1..250] of integer;
    i,n,j,t: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap a[',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
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
     end;
  write ('day sau khi sap xep khong tang la: ');
  for i:=1 to n do
   write (a[i],' ');
 readln;
end.

1.

program ctpt;

uses crt;

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

        i, n, min: integer;

begin

        clrscr;

        write('Nhap n = '); readln(n);

        if n>250 then write('n phai <= 250') else

        begin

             for i:=1 to n do

             begin

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

             end;

             min:=A[1];

             for i:=1 to n do if min>A[i] then min:=A[i];

        end;

        writeln('Min = ', min);

        readln

end.

2.

program ctpt;

uses crt;

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

        n, i, j, t: integer;

begin

     clrscr;

     write('Nhap n = '); readln(n);

     if n>250 then write('n phai <= 250) else

     begin

        for i:=1 to n do 

        begin

              write('A[', 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

                               t:=A[i];

                               A[i]:=A[j];

                               A[j]:=t;

                       end;

         for j:=1 to n do write(A[j]:3);

     end;

     readln

end.