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

Если ты в 10-11, то необходимо с массивом: const n=10; var a: array[1… n] of integer; i,min,max: integer; sum: real; beginfor i: =1 to n do readln (a[i]); min: =a[1]; max: =a[1]; for i: =1 to n do beginif a[i]>max then max: =a[i]; if a[i]max then max: =x; if x