In einem unsortierten array min. und max. herausfinden.

[bl4ckb1rd]

Wie kann ich in einem Array, der nur aus Zahlen besteht, ganz schnell die kleinste und größte Zahl herausfinden?

Meine Lösung wäre:

Delphi-Quellcode:

min:= array[1];
max := array[1];
for i:= 2 to lenght(array) do begin
if array[i] < min then min := array[i];
if array [i] > max then max := array[i];
end;

Kann man das noch optimieren? Schneller machen?