Verzweifelt: Algorithmus zur Ermittlung aufeinander folgender Zahlen Array

[Ryu]

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...