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

Ответы 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.

    answer img
    • Автор:

      sadielxdw
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years