Имеется массив А из n произвольных чисел, среди - вопрос №13499477 от ka931 07.07.2021 09:47

Question

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

ka931 · Answer

// PascalABC.NETbegin  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....