max() mit vielen zahlen

[himitsu]

ich sag ja, bei Wenigen

Schleifen gibt's dann och noch:

Delphi-Quellcode:

X := MinInt;
For i := 1 to 30 do
  X := Max(X, Zahl[i]);

// oder

X := MinInt;
For i := 1 to 30 do
  If Zahl[i] > X Then X := Zahl[i];