代码分尸
建议使用**Markdown**
```pascal
var a:array[1..300000] of longint; i,j,n,sum,ans:longint; jc:boolean; procedure sort(x,y:longint); var i,j:longint; t,mid:int64; begin i:=x;j:=y;mid:=a[(x+y) div 2]; repeat while a[i]<mid do inc(i); while a[j]>mid do dec(j); if i<=j then begin t:=a[i];a[i]:=a[j];a[j]:=t; inc(i); dec(j); end; until i>j; if i<y then sort(i,y); if x<j then sort(x,j); end; begin readln(n); for i:=1 to n do readln(a[i]); sort(1,n); sum:=1; for i:=1 to n-1 do if a[i]+n>=a[n]+1 then inc(sum); writeln(sum); end.
```
by 白色星期一 @ 2018-10-11 19:33:19
@[杰伦小迷弟](/space/show?uid=73436) 希望更丰富的展现？使用Markdown
by SCLBJKD @ 2018-10-11 19:35:13
是真的水
by 2017zz @ 2018-11-08 18:55:13
数据是真的水
大部分人（比如我）都只考虑了第一名的情况，后面的第二名、第三名...都没考虑，所以样例二过不了，但这样的代码竟然也能通过！！
by liuziyan @ 2020-05-04 11:12:52