C++程序，接受N个评委输入选手得分(0-100分)，去掉一个最高分和最低分，求出某选手的最后得分(平均分)

这个问题超级简单
但是我不会c++ 我用的是Delphi
如果用不到 可以找人翻译成C++
var s:array[0..1000] of real;
i,n,longint;
ans:real;
procedure quick(l,r:longint);
var
x,y:longint;
begin
x:=a[l+r shr l];
i:=l;
j:=r;
while a[i]<x do inc(i);
while a[j]>x do dec(j);
if i<=j then begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i);
dec(j);
end;
if j>l then quick(l,j);
if i<r then quick(i,r);
end;

begin
min:=100;
max:=0;
readln(n);
for i := 1 to n do read(a[i]);
quick(1,n);
for i := 2 to n-1 do ans:=ans+a[i];
ans:=ans/n-2;
writeln(ans);
end.