Программа для суммирование элементов последовательности, признаком конца которой является 0. Программа на языке паскаль, при использовании МАССИВА

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).Sum.Print

end.

Объяснение:

После ввода нуля на следующей строке будет выдана сумма. Числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.

Если хочется именно МАССИВ (т.е. чтобы он так назывался в программе) будет чуть длиннее:

begin

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 a.Sum.Print

end.