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

587989nm 587989nm    3   20.09.2019 11:10    6

Ответы
ralibaev ralibaev  04.08.2020 12:32
// PascalABC.NET 3.3

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

Пример:
Введите последовательность чисел:  15 20 17 0
17
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика