Список проголосовавших за комментарий "наиболее быстрая сортировка на сей час<br/> на понятном человеческом языке QBasic / QuickBASIC<br/> найденная на форуме программистов<br/> <br/> и небось сами не знают насколько быстрая<br/> но сами сообщают мол не универсальная<br/> <br/> Код:<pre><code class="hljs vbnet"> n = 1000 DIM x(n) AS LONG DIM y(-1 TO n) AS LONG y(-1) = 1 FOR i = 1 TO n: x(i) = INT(RND * 1000): NEXT FOR i = 1 TO n y(x(i)) = y(x(i)) + 1 NEXT FOR i = 1 TO n y(i) = y(i) + y(i - 1) NEXT FOR i = 0 TO n FOR j = y(i - 1) TO y(i) x(j) = i NEXT j, i FOR i = 1 TO n: PRINT x(i);: NEXT END </code> </pre>"