Delphi-Quellcode:
uses (...), math;
(...)
ShowMessage(IntToStr(max(var1, max(var2, max(var3, max(var4, var5))))));
somit erhältst du den größten Wert am elegantesten mMn!
Das riecht aber verdammt nach Rekursion, die auch eleganter realisiert (implementiert) werden kann.
Maxima (analog Minima) ermittle ich einfach so:
Delphi-Quellcode:
max:=intervariable[1]
for laufvariable:=2 to 5 do if intervariable[laufvariable]>max then max:=intervariable[laufvariable]