中位数

给出1～n的一个排列，统计该排列有多少个长度为奇数的连续子序列的中位数是b。

中位数的定义可以转化为在序列中大于它和小于它的数的个数相等。

序列总数就是以它为左端点的+以它为右端点的+它不做端点的

怎么求看代码

program median(input,output);
var
   f,a          : array[-100000..110000] of longint;
   n,i,x      : longint;
   max,pos,answer : longint;
begin
   assign(input,'median.in');reset(input);
   assign(output,'median.out');rewrite(output);
   readln(n,x);
   fillchar(f,sizeof(f),0);
   for i:=1 to n do
   begin
      read(a[i]);
      if a[i]=x then
     pos:=i;
   end;
   max:=0;
   answer:=0;
   for i:=pos+1 to n do
   begin
      if a[i]>x then
     inc(max)
      else
     dec(max);
      if max=0 then
     inc(answer);//左端点
      inc(f[max]);
   end;
   max:=0;
   for i:=pos-1 downto 1 do
   begin
      if a[i]>x then
     inc(max)
      else
     dec(max);
      if max=0 then
     inc(answer);//右端点
      inc(answer,f[-max]);//不做端点的
   end;
   writeln(answer+1);//自己也是一个序列
   close(input);
   close(output);
end.