Найти среднее арифметическое минимального и максимального элементов из 10 введенных

program zz1;

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

begin

min:=10000; max:=0; / / задаем начальные значения для максимального и минимального

for i:=1 to 10 do

begin

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

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

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

end;

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

end.