Hallo,
ich sitze seit mehreren Stunden an einer kurzen und eleganten Lösung um die Summe von aufeinanderfolgenden Zahlen <> 0 in einem Array zu bestimmen.
Beispiel
Ich hab vereinfacht gesagt ein Array vom Typ TValue
Delphi-Quellcode:
TValue = record
value: integer;
sum: integer;
end;
Beispielhaft:
Values.val = [0, 5, 4, 9, 0, 0, 1, 0, 0, 3, 4, 0]
Daraus sollen die Summen aufeinanderfolgender Zahlen <> 0 ermittelt werden.
Values.sum = [0, 18, 18, 18, 0, 0, 1, 0, 0, 7, 7, 0]
Das mag jetzt für euch relativ einfach klingen, aber ich komm einfach nicht auf eine funktionierende Lösung. Deswegen bitte ich hier um Tipps.
PS: es handelt sich hier nur um Pseudo Code um das Problem einigermaßen anschaulich zu erklären...