Question

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

Answer 1

// PascalABC.NET

begin

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

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

 a.Println;

 if a.Contains(2) then

   a.TakeWhile(p -> p <> 2).Sum.Print

 else

   Print('Двойки нет')

end.