Безотлагательно!!!!Напишите программку, которая в последовательности целых чисел определяет значение

Безотлагательно!!!!
Напишите программу, которая в последовательности целых чисел определяет значение наивеличайшего числа из всех нечетных введенных чисел. Программа получает на вход целые положительные числа, количество введённых чисел неведомо. Последовательность чисел кончается числом 0(0- признак окончания ввода, не заходит в последовательность).
Количество введённых чисел не превосходит 1000. Все числа не превосходят 30000. Посреди введённых чисел есть желая бы одно нечётное.
Программа обязана вывести одно число: наибольшее из всех нечётных введённых чисел.
Пример работы программки:
Входные данные: 15, 20, 17, 0
Выходные данные: 17

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3

begin
var a:=ReadSeqIntegerWhile('Введите последовательность чисел: ',x-gt;xlt;gt;0);
writeln(a.Where(x-gt;x mod 2lt;gt;0).Max);
end.

Пример:
Введите последовательность чисел:  15 20 17 0
17
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт