Напишите программу, которая в последовательности натуральных чисел определяет наибольшее нечётное трехзначное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечетное
трехзначное число. Ко Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - наибольшее нечётное трехзначное число после-
довательности.
Пример работы программы:
Входные данные
4 2345 583 857 954
Выходные данные
857
трехзначное число. Ко Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - наибольшее нечётное трехзначное число после-
довательности.
Пример работы программы:
Входные данные
4 2345 583 857 954
Выходные данные
857
More Questions From This User See All
Answers & Comments
Ответ:
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.