Wyznaczanie najmniejszego elementu tablicy jednowymiarowej

Dane: n – długość ciągu;

           a – tablica o długości n.

Wynik: Wartość najmniejszego elementu tablicy.

Metoda: Niech x oznacza najmniejszy element tablicy. Przyjmując na początek, że pierwszy element tablicy jest poszukiwanym najmniejszym elementem tablicy. Następnie dla każdego i od 2 do n porównaj a[i] zx. Jeśli a[i] jest mniejsze od x, to popraw wartość x.

Złożoność: O(n)

Implementacja:

const nmax = 100;

type  ind = 1...nmax;

         t = array[ind] of integer;

function min(i:integer; var a:t):integer;

var i:integer; x:integer;

begin

  x:=a[1];

for i:=2 to n do

   if a[i] < x then x:=a[i];

min:=x

end;