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

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

readln(n);for i:=1 to n doread(a[i]);ma:=1;mi:=1;for i:=2 to n do beginif a[i]<a[mi] thenmi:=i;if a[i]>a[ma] thenma:=i;end;

if mi=ma then

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

elsewrite((mi+ma)/2);end.