Реализации алгоритмов/Сортировка/Быстрая: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 535:
i,j,x,y: integer;
begin
i:=l; j:=r; x:=a[l+random(r-l+1)
repeat
while a[i]<x do i:=i+1; { a[i] > x - сортировка по убыванию}
| |||