Упорядочить заданный массив

[Serg241]

Упорядочить заданный массив А(n) по неубыванию, многократно переставляя каждые два соседних элемента, нарушающие порядок. Процесс завершается по достижении упорядоченности массива

[MBo]

Нужно почитать о сортировках и реализовать пузырьковую

[Gonarh]

for i:=low(arr) to high(arr)-1 do
  for j:=low(arr) to high(arr)-1 do
    if arr[j] > arr[j+1] then begin
      a:=arr[j];
      arr[j]:=arr[j+1];
      arr[j+1]:=a;
    end;

[^D^ima]

MBo
Кстати, в том-же дельфи есть уже готовые функции сортировки?

[MBo]

В версиях с дженериками есть TArray<>.Sort

В старых есть для списков (TList, TStringList), в том числе с пользовательской функцией сравнения