Дан массив А из N целочисленных частей.1)Заполнить массив А целыми числами

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println;      // общее

 Println('Максимальный четный ', a.Where(t -gt; t.IsEven).Max);   // задача 1

 Print('Второй минимальнывй нечетный');                         // задачка 2

 a.Where(t -gt; t.IsOdd).OrderDescending.Skip(1).Take(1).Println  // задачка 2

end.

Пример

n= 15

67 8 60 1 96 40 73 25 39 93 64 89 40 69 9

Наибольший четный  96

Второй минимальнывй нечетный 89