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

Ищет наименьший элемент в массиве простым перебором. Если заменить знак »<» на »>», то можно искать наибольший элемент.

(*******************************************************
Функция для поиска наименьшего элемента.
Принимает:
    *массив значений 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;
 
pascal/search/least_element_linear.txt · Последние изменения: 2009/10/30 20:18 От romtek
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki