Question

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

Answer 1

Ответ:

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.

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqInteger(ReadInteger('n ='))

     .Where(p -> p.IsEven)

     .DefaultIfEmpty

     .Max

     .Print

end.