Zahlen zusammenfassen

[Kroko1999]

Delphi-Quellcode:

var
  I,L,Start: Integer;
  B: Boolean;
begin
  B := False;
  L := A[Low(A)]; //das erste Jahr
  for I := Low(A)+1 to High (A) do
  begin
    if A[I]=L+1 then 
      begin
        B := True;
        Start := L
      end
    else
      begin
        if B then //von Start bis L
             else // nur L
        B := False;
      end;
    L := A[I]
  end;
end;

sollte klappen ungetestet