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

PdAl PdAl    3   03.06.2019 21:10    1

Ответы
ВладАхтубинск ВладАхтубинск  05.07.2020 01:48
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика