How to find the smallest value in an array

[Norbo]

Aight so i have an array [1..32] and i want to find the smallest value from this array
how do i do that?

[Toumaz]

No clue if this is an effective way of doing it or not (or if it'll even compile; I haven't tested it), but meh!

min := 0;
min_index = 0;

for i := 1 to 32 do
    if (min_index = 0) or (array < min) then begin
        min_index := i;
        min := array;
    end;

[mar77a]

Code: [Select]

min := array[1];

for i := 2 to 32 do
    if (array[i] < min) then begin
        min := array[i];
    end;