Бинарная сортировка Опции

[guf]

Поиск презрительно ничего не нашел...

Плиз дайте реализацию этого кода в виде кода на паскале или на псевдокоде.

[volvo]

это помоему разновидность быстрой сортировки если я не ошибаюсь

Не ошибаешься...

procedure qsort(var a: array of integer; lt, rg: integer);
var
  med, i, j, X: integer;
begin
  med := (lt + rg) div 2; { <--- вот поэтому она бинарная }
  X := a[med];
  i := lt;
  j := rg;

  while i <= j do begin

    while (a[i] < X) do inc(i);
    while (a[j] > X) do dec(j);

    if (i <= j) then begin
      swap(a[i], a[j]); { <--- это напишешь сам }
      inc(i);
      dec(j);
    end;

  end;

  if (lt < j) then qsort(a, lt, j);
  if (i < rg) then qsort(a, i, rg);
end;