CQOI2009 BZOJ1303 中位数

 

首先找出b在数列中的位置mid

用 f[i]记录mid左边从mid往左统计比m小的数与比m大的数的差值为i的个数

用g[i]记录mid右边从mid往右统计比m大的数与比m小的数的差值为i的个数

。。有点语死早，找个样例模拟一下就懂了

var n,b,mid,k,I:longint;
    ans:int64;
    a:array[0..100008] of longint;
    f,g:array[-100008..100008] of longint;
begin
    readln(n,b);
    for i:=1 to n do
    begin
        read(a[i]);
        if b=a[i] then mid:=i;
    end;
    k:=1;
    for i:=mid downto 1 do
    begin
        if a[i]>a[mid] then dec(k);
        if a[i]<a[mid] then inc(k);
        inc(f[k]);
    end;
    k:=1;
    for i:=mid to n do
    begin
        if a[i]>a[mid] then inc(k);
        if a[i]<a[mid] then dec(k);
        inc(g[k]);
    end;
    for i:=-n to n do ans:=ans+f[i]*g[i];
    writeln(ans);
end.