Finde mindste av 4 tall med funktion

result:=Min( min(1,2) , min(3,4) );

Hvor 1,2,3 og 4 også kan være variabler f.eks tal1,tal2,tal3 og tal4

Hvis tallene findes i 4 variable a b c d, kan følgende bruges:

result:=min(min(a,b), min(c,d))

Man skal godt nok være hurtig her :)

FUNCTION GetMin ( Value : ARRAY OF INTEGER) : INTEGER;
VAR
  Min                                            : Integer;
  I                                              : Integer;
BEGIN
  Min := Value[0];
  FOR I := Succ(Low(Value)) TO HIGH(Value) DO
  IF Value[I] < Min THEN
    Min := Value[I];
  Result := Min;
END;

Kald med Getmin([5,4,3,6,7,1]) Finder mindste tal i en openarray

Skal love for at det gik hurtigt her!!. Snorga var vel hurtigst, så du får mine points

Øv, 4 sekunders forskel *s*

Tak :)