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

mishazzzzz mishazzzzz    3   30.09.2019 07:10    2

Ответы
1venera4 1venera4  10.09.2020 21:23
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.


Склавиатуры вводятся целые числа. признак конца ввода - число 0. определить число, следующее за посл
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика