`\text{ Program  baitap; }`

`\text{ Uses crt; }`

`\text{ Var   a: Array[1 .. 100] of integer; }`

          `\text{i, n, j, tam: integer; }`

`\text{Begin}`

          `\text{Write(' Nhap so phan tu cua mang n = '); Readln(n); }`

`\text{For i:= 1 to n do}`

           `\text{begin}`

                         `\text{Write(' Nhap phan tu thu a[',i,']= ');Readln(a[i]);}`

           `\text{end;}`

`\text{Writeln;}`

          `\text{Write(' Mang truoc khi sap xep: ');}`

          `\text{ For i:= 1 to n do}`

          `\text{Write(a[i]: 4 ); }`

          `\text{Writeln;}`

          `\text{Write(' CT sap xep mang theo thu tu giam dan '); }`

          `\text{For i:= 1 to n - 1 do}`

                    `\text{For j:= i + 1 to n do}`

                               `\text{ If a[i] < a[j] then }`

          `\text{Begin}`

                          `\text{Tam := a[i];} `

                          `\text{a[i] : = a[j];}`

                          `\text{a[j] := Tam ;}`

           `\text{end;}`

         `\text{Write(' Mang sau khi sap xep giam dan:')}`

         `\text{For i := 1 to n do }`

                `\text{Write(a[i]: 4);}`

           `\text{Writeln;}`

`\text{Readln;}`

`\text{End.}`

$\textit{#Lyz}$

     

uses crt;

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

i,n,j,t: integer;

begin

clrscr;

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

for i:=1 to n do

begin

write ('nhap phan tu 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

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln ('Mang sau khi sap xep la: ');

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

readln;

end.

$#TrumFlorentino$