СРОЧНО!!!!
Напишите программу, которая в последовательности целых чисел определяет значение наибольшего числа из всех нечетных введенных чисел. Программа получает на вход целые положительные числа, количество введённых чисел неизвестно. Последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность).
Количество введённых чисел не превышает 1000. Все числа не превосходят 30000. Среди введённых чисел есть хотя бы одно нечётное.
Программа должна вывести одно число: наибольшее из всех нечётных введённых чисел.
Пример работы программы:
Входные данные: 15, 20, 17, 0
Выходные данные: 17
Ответы на вопрос
Ответил petyaGavrikov
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 года назад
Алгебра,
8 лет назад
Литература,
8 лет назад
Математика,
9 лет назад