# важность алгоритма

важность алгоритма поиска максимума, о чем мы говорили еще в Главе D, запишем его первый вариант в общем виде, причем будем считать, что доступ к компоненте обеспечивает непосредственно получение ее ключевого значения item. Алгоритм E2-1 (1) type index1 = 0..N-1; {N &gt; 1} massive1 = array [index1] of item; function Max (Mas: massive1; left, right: index1): item; var i: index1; temp: item; begin temp:= Mas[left]; for i:= left+1 to right do if Mas[i] &gt; temp then temp := Mas[i]; Max := temp end; procedure ShiftRightArray (var Mas: massive1; ind: index1); {сдвиг значений вправо, начиная от позиции ind} var i: index1; begin for i:= N-1 downto ind do Mas[i] := Mas[i-1] end; {ShiftRightArray} procedure InsArray (var Mas: massive1; K: index1; Elem: item); var i: index1; begin ShiftRightArray (Mas, k); Mas[K] := Elem end; {InsArray} type index1 = 0..N-1; {N &gt; 1} massive1 = array [index1] of item; function Partition (var Mas: massive1;

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