PascalABC.NET                                      

Ответ:

• begin
• var a := ArrRandom(ReadInteger('Кількість:'),-50,50);
• Println('Елементы:',a.JoinToString);
• Println('Найбільший парний:',a.Where(x->x.IsEven).Max);
• Println('Найбільший непарний:',a.Where(x->x.IsOdd).Max);
• Println('Найменшийпарний:',a.Where(x->x.IsEven).Min);
• Println('Найменшийнепарний:',a.Where(x->x.IsOdd).Min);
• end.

Пример работы: