Программная реализация

Для нахождения максимального значения	Для нахождения минимального значения
MAX = A(1) K = 1 FOR I = 2 TO n IF A(i) > MAX THEN MAX = A(i): K = i END IF NEXT i	MIN = A(1) L = 1 FOR I = 2 TO n IF A(i) < MIN THEN MIN = A(i): L = i END IF NEXT i