Question

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

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.