# temp: index1;; begin

temp: index1;; begin temp:= left; for i:= left+1 to right do if Mas[i] &gt; Mas[temp] then temp := i; IndexMax := temp end; procedure PseudoDelArray (var Mas: massive1; K: index1); begin Swap (Mas[K], Mas[N-1]); end; procedure QuickSort (var Mas: massive1; left, right: index1); var ind : index1; begin ind := Partition (Mas, left, right); if ind &gt; left then QuickSort (Mas, left, ind); if ind+1 &lt; right then QuickSort (Mas, ind+1, right); end; {Partition} Очевидно, значение наибольшего элемента доступно в ячейке Mas[IndexMax]. Не исключена ситуация, когда в массиве присутствуют несколько равных по значению &quot;наибольших&quot; элементов. Если для алгоритма E2-1 (1) это обстоятельство несущественно, то, применяя E2-1 (2), нужно иметь в виду, что алгоритм возвращает местоположение первого слева из подходящих элементов. Упражнение #1. Напишите функцию Min, возвращающую значение наименьшего элемента вектора. Упражнение #2. Напишите

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