Напишите программу, которая в последовательности целых чисел определяет значение наибольшего числа из всех нечетных введенных чисел. программа получает на вход целые положительные числа, количество введённых чисел неизвестно. последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность). количество введённых чисел не превышает 1000. все числа не превосходят 30000. среди введённых чисел есть хотя бы одно нечётное. программа должна вывести одно число: наибольшее из всех нечётных введённых чисел. пример работы программы: входные данные: 15, 20, 17, 0 выходные данные: 17
begin
var a:=ReadSeqIntegerWhile('Введите последовательность чисел: ',x->x<>0);
writeln(a.Where(x->x mod 2<>0).Max);
end.
Пример:
Введите последовательность чисел: 15 20 17 0
17