Guten Morgen mojo777,
lass mich Dir noch kurz einen kleinen Denkanstoß geben:
Wie ich hier sehe, greifst Du "lediglich" lesend auf das Array zu.- Deine Funktion möchte den
größten Wert des Arrays zurückgeben. Falls Deine Funktion ausschließlich für dieses
einzige (!) Array funktionieren soll und nicht auf mehrere Arrays zugreifen soll, dann brauchst Du
das Array gar nicht als Werteparameter an die Funktion zu übergeben. Programmierer machen das
unterschiedlich, ist Geschmacksache.
Dazu folgende Variante (ungetestet):
Delphi-Quellcode:
//--------- globale Variablen -----------------------
CONST min = 0; // untere Grenze des Arrays
CONST max = 5000; // obere Grenze des Arrays
VAR haufen : Array[min..max] of integer;
//---------------- Funktion --------------------------
function suche_den_dicksten; // hier stehen KEINE PARAMETER drin!
var wert, i: Integer;
begin
wert:=0;
for i:=min to max do // verwende globale Konstanten
if haufen[i]> wert then // verwende globales Array (lesend)
wert:=haufen[i];
result:= wert; // wir wollen den Wert zurück geben. ;-)
end;