===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Вводите элементы массива:', n);

 Println('Результат:', (a.Max + a.Min) / 2)

end.