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