Изменения

sort(A[l..r]); //если элементов не больше 5, сортируем их и возвращаем к-ый элемент

//сортируем каждую группу

sort(A[i..i + 4]; //сортируем каждую группу

//создаем массив медиан

Medians[1..n / 5]; //создаем массив медиан

//x - рассекающий элемент x = select(Medians, 1, n/5, n/10); //делим массив относительно элемента x- рассекающий элемент A = share(A, l, r, x); //находим индекс делим массив относительно элемента x в исходном массиве

if (A[i] == x) //находим индекс элемента x в исходном массиве

//делаем рекурсивный вызов от той части массива, где находится к-ый элемент

select(A, k, r, m - k + 1); //делаем рекурсивный вызов от той части массива, где находится к-ый элемент