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

Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1504 от 09.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(30,-50,50); a.Println;
  Writeln('Максимальное четное: ',a.Where(x->x.IsEven).Max)
end.

Пример:
14 34 8 41 -49 -2 22 9 29 -24 40 -35 -18 -47 0 -39 -9 46 38 8 25 -10 -30 32 -14 9 -13 6 9 -2
Максимальное четное: 46