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

Question

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

Answer 1

Ответ:

program z1;

var m,n,i,a: integer;

begin

writeln('Введите количество чисел в последовательности');

write ('n = ');

readln (n);

m:=101;

for i := 1 to n do

begin

write ('Введите число: ');

readln (a);

if (a>=100) and (a<=999) and (a mod 2 <> 0) and (a>m) then m:=a

end;

writeln ('Наибольшее нечётное трехзначное число ',m)

end.