// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
begin
var a:=ReadlnString.ToIntegers;
Writeln('Минимальное нечетное: ',a.Where(i->i.IsOdd).Min);
Writeln('Максимальное четное: ',a.Where(i->i.IsEven).Max);
end.
Пример
4 12 83 53 7 19 32
Минимальное нечетное: 7
Максимальное четное: 32