20 б! . Паскаль. Дана последовательность из целых чисел. Числа находятся в диапазоне от - 1000 до 1000. Определить какое минимальное число: чётное или нечётное?

ответ:

var

 i, n, x, max:integer;

begin

 max := -1001;

 read(n); // Количество вводимых чисел

 for i := 1 to n do begin

  read(x); // Ввод чисел

  if(x mod 2 = 0) and (x > max) then

    max := x;

 end;

 if(max = -1001) then

  write(0)

 else

  write(max);

end.

Подробнее - на -

Объяснение: