profile
Опубликовано 5 лет назад по предмету Информатика от s1mp4826

С клавиатуры вводятся целые числа. Признак конца ввода - число 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.

Самые новые вопросы