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

Question

Напишите программу, которая в последовательности натуральных чисел определяет наибольшее нечётное трехзначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечетное трехзначное число. Ко Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - наибольшее нечётное трехзначное число после- довательности. Пример работы программы: Входные данные 4 2345 583 857 954 Выходные данные 857

Answer 1

Ответ:

Объяснение:

var  

   a, s: integer;  

begin    

   s:= 0;    

   readln(a);    

   while a<>0 do begin      

       if (a mod 3 = 0) and (a mod 10 = 8) then        

           s := s + a;      

       readln(a);  

   end;    

   writeln(s)  

end.

Answer 2

max = -1

n = int(input('Введите количество чисел в последновательности: '))

for i in range(n):

   x = int(input())

   if x > max and x % 2 != 0 and x > 99 and x < 1000:

       max = x

print(max)