Maximalen Zuwachs bekommen

[Sharky]

*Schwup*

Delphi-Quellcode:

function GroessterZuwachs (werte : Array of Integer) : Integer;
var
 ndx,
 zuwachs,
 maxzuwachs : Integer;
begin
 maxzuwachs := 0;
 for ndx := Low(werte) + 1 to High (werte) do
  begin
   zuwachs := werte [ndx] - werte [ndx-1];
   if (zuwachs > maxzuwachs) then
    begin
     maxzuwachs := zuwachs;
    end;
  end;
 result := maxzuwachs;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 tmp : Array [1..7] Of Integer;
begin
 tmp[1] := 5;
 tmp[2] := 9;
 tmp[3] := 4;
 tmp[4] := 8;
 tmp[5] := 2;
 tmp[6] := 8;
 tmp[7] := 6;
 Label1.Caption := IntToStr (GroessterZuwachs (tmp));
end;