# sample) do i :=

sample) do i := i+1; Search := i end; type index = 1..N; {N&gt;1} massive1 = array [index] of index; procedure RandomN (var Mas: massive1); var i, K: index; begin for i := 1 to N do Mas[i] := i; Randomize; for i := N downto 2 do begin K := Random(i) + 1; Swap (Mas[K], Mas[i]); end; end; Нередко в приложениях возникает необходимость &quot;перевернуть&quot; линейный массив, разместив в нем элементы в порядке, обратном исходному. Например, исходный массив упорядочен по убыванию значений элементов, а нужно представить содержимое по возрастанию, чтобы использовать стандартный механизм Search2, не переписывая эту процедуру. Задачу решает совсем простой алгоритм обращения линейного массива. Алгоритм E3-5 type index = 1..N; {N &gt; 1} massive1 = array [index] of item; procedure Reverse (var Mas : massive1); var i: index; begin for i := 1 to (N div 2) do Swap (Mas[i], Mas[N-i+1]); end; Очевидно, вся обработка потребует N div 2 шагов -

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа