====== Поиск наименьшего элемента массива ======

Ищет наименьший элемент в массиве простым перебором. Если заменить знак "<" на ">", то можно искать наибольший элемент.
<code pascal>
(*******************************************************
Функция для поиска наименьшего элемента.
Принимает:
    *массив значений a с индексами элементов от 0 до N-1
    *число элементов
Возвращает:
    *номер наименьшего элемента
*******************************************************)
function FindLeastElement (const a : array of Real; const N : Integer): Integer;
var
    I   :   Integer;
begin
    result := 0; 

    for I := 1 to N - 1 do
        if A[result] > A[i] then
           result:=i;
end;
</code>