program SortArrayDescending;
uses crt;
var
arr: array[1..10] of integer;
i: integer;
{ Bubble Sort in descending order }
procedure SortDescending(var arr: array of integer);
var
i, j, temp: integer;
begin
for i := 0 to High(arr) - 1 do
for j := i + 1 to High(arr) do
if arr[i] < arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
begin
clrscr;
{ Initialize the array with some values }
arr[1] := 10;
arr[2] := 4;
arr[3] := 3;
arr[4] := 7;
arr[5] := 5;
arr[6] := 6;
arr[7] := 8;
arr[8] := 1;
arr[9] := 9;
arr[10] := 2;
SortDescending(arr);
for i := 1 to 10 do
write(arr[i], ' ');
end.
(*
run:
10 9 8 7 6 5 4 3 2 1
*)
