Grösster Wert in einem Array

[sakura]

Hier mein Vorschlag (ungetestet!):

Teste Deine und meine Lösung mal mit dem höchsten Wert im ersten, mittleren, bzw. letzten Element

Delphi-Quellcode:

FUNCTION GetMaxArrayValue(VAR MyArray: TMyArray): Real;
VAR
  i: integer;
  lastMax: Real;
BEGIN
  lastMax := MyArray[low(MyArray)];
  FOR i := low(MyArray)+1 TO high(MyArray) DO
    if MyArray[i] > lastMax then
      lastMax := MyArray[i];
  GetMaxArrayValue := lastMax;
END;

......