Поиск презрительно ничего не нашел...
Плиз дайте реализацию этого кода в виде кода на паскале или на псевдокоде.
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;