Реализован некоторый алгоритм в виде блок схемы если изначально a)А=0 B=0 б)А=0 В=5 в) А=10 В=20 г) А=10 В=10​

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

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

begin

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

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

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

 a.Where(t -> 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