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