temp: index1;; begin
temp: index1;;
begin
temp:= left;
for i:= left+1 to right do
if Mas[i] > 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 > left then QuickSort (Mas, left, ind);
if ind+1 < right then QuickSort (Mas, ind+1, right);
end; {Partition}
Очевидно, значение наибольшего элемента доступно в ячейке Mas[IndexMax].
Не исключена ситуация, когда в массиве присутствуют несколько равных по значению "наибольших" элементов. Если для алгоритма E2-1 (1) это обстоятельство несущественно, то, применяя E2-1 (2), нужно иметь в виду, что алгоритм возвращает местоположение первого слева из подходящих элементов.
Упражнение #1.
Напишите функцию Min, возвращающую значение наименьшего элемента вектора.
Упражнение #2.
Напишите
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
