Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

program zz1;

var a, n, i, max, min:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

max:=0; min:=100000;

for i:=1 to n do

begin

read (a); / / вводим число

if a > max then max:=a; / / проверяем, если число больше максимального, то записываем его в максимальное

if a < min then min:=a; / / проверяем, если число больше максимального, то записываем его в минимальное

end;

write (' средне арифметическое минимального и максимального = ', (max + min) / 2); / /выводим ответ

end.