Zahlen zusammenfassen, nicht addieren

[DeddyH]

Vielleicht ist es so verständlicher:

Delphi-Quellcode:

function zusammenfassen(const arr: array of integer): integer;
var i: integer;
begin
  Result := 0;
  for i := Low(arr) to High(arr) do
    Result := Result * 10 + arr[i];
end;