const n=10;
var x : array[1..n] of integer; 
  s,i,max,min : integer;sr:real;
begin
Randomize; 
writeln('Сгенерированный массив:');
for i:=1 to n do
 begin
  x[i]:=random(21)-1; 
  write(x[i],' ');     
 end;
writeln; 
s:=0;max:=x[1];min:=x[1];
for i:=1 to n do
 begin
 if x[i]<min then min:=x[i];
 if x[i]>min then max:=x[i];
 s:=s+x[i]
 end;
 sr:=(s-max-min)/(n-2);
writeln('Средн.арифм. = ',sr:5:2);
end.