Question

Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел.

Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .

Количество чисел не привышает 1000. Введеные числа не привышают 30000.

Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.

Пример работы программы:

Входные данные                                                          Выходные данные 

15                                                                                         17

20

17

0

Answer 1

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.