Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Компактный код для сортировки массива

01.01.2007
{ **** UBPFD *********** by kladovka.net.ru ****
>> Компактный код для сортировки массива.
 
Очень небольшой код для сортировки массива. Состоит из двух циклов for.
Сортирует от болшего к меньшему.
 
Зависимости: нет
Автор:       Михон
Copyright:   (<Михон>) (с)
Дата:        14 января 2007 г.
********************************************** }
 
for i:= 1 to 5 do begin //отвечает за место старта проверки
   
for j:= i to 5 do begin //сам цикл поверки
     
if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
        a
:= x[j]; //
        x
[j]:= x[i]; //меняем местами
        x
[i]:= a; //
     
end;
   
end;
 
end;

Пример использования:

var
  x
: array [1..5] of integer;
  a
,k,i,j: integer;
 
 
begin
  writeln
('Vvedite massiv!!!');
 
for k:= 1 to 4 do begin //вводим массив
    read
(x[k]); //--,--
 
end; //--,--
  readln
(x[5]); //--,--
 
for i:= 1 to 5 do begin //отвечает за место старта проверки
   
for j:= i to 5 do begin //сам цикл поверки
     
if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
        a
:= x[j]; //
        x
[j]:= x[i]; //меняем местами
        x
[i]:= a; //
     
end;
   
end;
 
end;
 
for k:= 1 to 4 do begin //
    write
(x[k],' '); //
 
end; // выводим массив
  writeln
(x[5]); //
  readln
; //
end.