题目: |
var
n,i,temp,sum:integer;
a :array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
temp := a[i];
a[i] := a[i+1];
a[i+1] := temp;
end;
for i:=n downto 2 do
if a[i]<a[i-1] then
begin
temp := a[i];
a[i] := a[i-1];
a[i-1] := temp;
end;
sum := 0;
for i:=2 to n-1 do
inc(sum,a[i]);
writeln(sum div (n-2));
end.
输入: 8
40 70 50 70 20 40 10 30 输出:41
|