Изменения
→Быстрая сортировка с разделением на три части
      j = i - 1
      i++
      '''for''' ('''int''' k = 1 ; k <tex> \leqslant </tex> p; k++, j--) 
         swap(a[k], a[j])
      '''for''' ('''int''' k = r-1; k <tex> \geqslant </tex> q; k--, i++) 
         swap(a[k],a[i]) 
      quicksort(a, 1, j)