NOIP模拟降雷皇&51nod 1376 最长递增子序列的数量

这两道题目都一样，只不过一个a[i]<=n,51nod 则a[i]<=10^9;
都是用树状数组做，找到那个当前值得最小位置然后插入更新，51nod上因为a[i]<=10^9所以要离散一下。

uses math;
const mo=1000000007;
type node=record
    x,y:longint;
end;
var
    i,j,k,p,n,m,t1,t2,l,tot:longint;
    an,a:array[0..120000]of longint;
    ans:int64;
    t,b:Array[0..120000]of node;
procedure qsort(l,r:longint);
var
        i,j,t,m:longint;
begin
        i:=l;
        j:=r;
        m:=b[(l+r)div 2].x;
        repeat
                while