Question

Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то вывести на экран «нет элемента, равного нулю». Например, если А = { 2, 4, 0, –6, 5, –2, 0, 7}, результат: 2 + 4 = 6.
На языке паскаль, пожалуйста

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -10, 10);

 a.Println;

 var s := a.TakeWhile(p -> p <> 0);

 Println(s.Sum)

 if s.Count = a.Length then

   Print('Нет элемента, равного нулю')

end.