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.