С клавиатуры вводятся целые числа. Признак конца ввода - число 0. Определить число,...

Question

С клавиатуры вводятся целые числа. Признак конца ввода - число 0. Определить число, следующее за последним из отрицательных чисел. Может кто-нибудь написать код ?)) Просто я совсем дуб, а сдать нужно((( Буду безмерно благодарен) Прям нууу очееень

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadSeqIntegerWhile(t -> t <> 0).Pairwise

     .Where(t -> (t[0] < 0) and (t[1] >= 0)).ToArray;

 if a.Length > 0 then (a.Last)[1].Println

 else 'Отсутствует значение, удовлетворяющее заданию'.Println

end.

---