9.Имеется массив А из n произвольных чисел, среди которых есть положительные,...

Question

9.Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет". Например, если А = { 7, 4, –3, 2, 5, –2, 1}, результат: 7 + 4 – 3 = 8. Решите на паскале

Answer 1

// PascalABC.NET

begin

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

 var a := ReadArrInteger('Введите числа:', n);

 var k := a.FindIndex(p -> p = 2);

 if k < 0 then

   Print('Двойки нет, сумма равна', a.Sum)

 else

   Print('Сумма равна', a[:k].Sum)

end.

Comments

А по-другому никак нельзя ?

---

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

---

Просто в колледже мы такое не проходили