Question

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


Напишите пожалуйста программу в Паскале с использованием массивов.

Answer 1

Ответ:

Program n1;

var i,a,max,n: integer;

begin

max:=0;

readln(n);

if n<1000 then for i:=1 to n do

begin

readln(a);

if ( a mod 2=0) and (max<a) then max:=a;

end;

writeln(max);

end.

Объяснение: