Delphi-Quellcode:
function suche_den_dicksten(haufen: ARRAY OF INTEGER)
var wert, i: Integer;
begin
wert:=0;
for i:=low(haufen) to high(haufen) do
if haufen[i]> wert then
wert:=haufen[i];
result:= wert; // wir wollen den Wert zurück geben.
end;
Hab' das nur mal freihand geschrieben (ungetestet).
Noch Fragen?