===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Sum.Print
end.
Объяснение:
После ввода нуля на следующей строке будет выдана сумма. Числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.
Если хочется именно МАССИВ (т.е. чтобы он так назывался в программе) будет чуть длиннее:
begin
var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;
a.Sum.Print
end.
