Question

Дан массив А из N целочисленных элементов.

1)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти максимальный четный элемент и вывести его на экран.
2)Заполнить массив А целыми числами в интервале[1,100] и вывести на экран.Найти второй минимальный нечетный элемент и вывести его на экран.

Answer 1

// 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