Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность...
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) . Количество чисел не привышает 1000. Введеные числа не привышают 30000. Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел. Пример работы программы: Входные данные Выходные данные 15 17 20 17 0
Гость
Ответ(ы) на вопрос:
Гостьvar x,y:integer;
BEGIN
repeat
readln(x);
If (x mod 2>0) then
begin
if x>y then y:=x
end;
until x=0;
writeln(y)
END.
Не нашли ответ?
Похожие вопросы