Показать сообщение отдельно
  #2  
Старый 24.11.2008, 17:01
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Например, методом пузырька.

Код:
var
  A : Array Of Integer; // Где-то описан массив

procedure BubleSort;
var
  I, J, Buf : Integer;
begin
  For I := Low(A) To High(A) - 1 Do
    For J := I + 1 To High(A) Do
      If A[i] > A[J] Then
         Begin
           Buf := A[i];
           A[i] := A[J];
           A[J] := Buf;
         End;
end;
Ответить с цитированием