Question

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

Answer 1

Ответ:

var a,i,n,min,max: integer;

begin

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

readln(n);

min:=1;

max:=2;

for i:=1 to n do

 begin

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

 readln(a);

 if (a mod 2 = 0) then  

   begin

   if (min=1) then min:=a

   else if (a<min) then min:=a;

   end

 else

   begin

   if (max=2) then max:=a

   else if (a>max) then max:=a;

   end

 end;  

if (min<>1) then writeln('Минимальное четное: ',min);

if (max<>2) then writeln('Максимальное нечетное: ',max);

end.