Câu 3:

uses crt;

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

i,j,n,t: integer;

begin

clrscr;

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

for i:=1 to n do readln (a[i]);

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: ');

for i:=1 to n do write (a[i]:4);

readln;

end.

Câu 4:

uses crt;

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

i,j,n,t: integer;

begin

clrscr;

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

for i:=1 to n do readln (a[i]);

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: ');

for i:=1 to n do write (a[i]:4);

readln;

end.

Câu 3:

program tang_dan;

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.

Câu 4:

program giam_dan;

uses crt;

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

      n，i，j，tg:integer;

begin

     clrcsr;

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

     for i:=1 to n do

          begin

               write(‘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;

     write(‘Day sap xep giam dan la: ‘);     

     for i:=1 to n do write(A[i]，’ ‘);

     readln;

end.