Список проголосовавших за комментарий "Ближайший шаг: перетасовка слабым алгоритмом<br/> случайности слабой делает ли случайность нормальной<br/> <br/> Взята последовательность плохая<br/> и вставлена в эксцель в 2 столбца на расстоянии<br/> и слева впритык 2-го столбца столбец чисел подряд<br/> и сортированы столбцы впритык от максимума к минимуму<br/> <br/> Группируются вместе: последовательности обратная и прямая<br/> и далее сортировка обоих урорядочивая обратную<br/> одновременно перетасовывается последовательность прямая <br/> <br/> Проверка показывает нормальность в перетасованной<br/> последовательности чёт\нечет и больших\малых<br/> <br/> Автоматический алгоритм без rnd считывает массив прямой<br/> и сразу есть массив обратный:… это же компьютер ...<br/> <br/> Сортировка обратного массива перетасовывает прямой массив<br/> и получается последовательность нормальная<br/> <br/> 'tasov.bas<br/> DIM a(55000), d(55000)<br/> OPEN «aa.txt» FOR INPUT AS #1<br/> OPEN «dd.txt» FOR OUTPUT AS #2<br/> <br/> FOR i = 1 TO 55000<br/> INPUT #1, a(i): d(55000 — i + 1) = a(i):NEXT<br/> <br/> FOR i = 1 TO 54999: FOR j = i TO 55000<br/> IF d(i) > d(j) THEN SWAP d(i), d(j): SWAP a(i), a(j)<br/> NEXT: NEXT<br/> <br/> FOR i = 1 TO 55000: PRINT #2, a(i): NEXT: CLOSE<br/> <br/> //tasov.cs<br/> using System; using System.Linq;<br/> using System.Collections.Generic;<br/> using System.Text; using System.IO;<br/> namespace tasov<br/> { class Program<br/> { static long[] a; static long[] d;<br/> static void Main(string[] args)<br/> { a = new long[55500]; d = new long[55500];<br/> var inpFile = new StreamReader(«aa.txt»);<br/> for (int i = 1; i <= 55000; i++)<br/> { a[i] = Convert.ToInt64(inpFile.ReadLine());<br/> d[55000-i+1] = a[i]; }<br/> <br/> for (int i = 1; i <= 54999; i++)<br/> for (int j = i; j <= 55000; j++)<br/> if (d[i] > d[j])<br/> { var temp = d[i]; d[i] = d[j]; d[j] = temp;<br/> temp = a[i]; a[i] = a[j]; a[j] = temp; }<br/> <br/> var outFile = new StreamWriter(«vv.txt»);<br/> for (int i = 1; i <= 55000; i++)<br/> outFile.WriteLine(a[i]);<br/> Console.ReadKey();}}}<br/> <br/> "