В заданном массиве A(n) определить среднее арифметическое значение минимума и максимума. Если таких элементов нет, вывести на экран дисплея сообщение "вы ввели не число".

var
a: array [1..100] of integer;
i,ma,mi,n,s:integer;
begin

readln(n);
for i:=1 to n do
read(a[i]);
ma:=1;
mi:=1;
for i:=2 to n do begin
if a[i]<a[mi] then
mi:=i;
if a[i]>a[ma] then
ma:=i;
end;

if mi=ma then

write('вы ввели не число')

else
write((mi+ma)/2);
end.