vijos1062题解

 题目：

交谊舞是2个人跳的，而且一男一女 -____-||||。

由于交谊舞之前的节目安排，所有的表演者都站成了一排。这一排人的顺序满足2点：

①对于一对舞伴男生站在女生的左边。

②任何一对舞伴之间,要么没有人，要么就有若干对舞伴。

排得过于整齐导致那些要表演交谊舞的人都没办法看到自己的舞伴，怎么办类…….
所幸的是，SDFZ的女生比男生聪明得多。她们知道自己左边有几个男生。

现在就请你再告诉这些女生，她们的舞伴距离她们多远（即包括那个男生，一共有多少男生夹在他们之间）。

此题好像以前做过。当时还想了好长时间。

var n,i,x,j:longint;
    s:array[0..10000]of boolean;
begin
readln(N);
fillchar(s,sizeof(s),#1);
for i:=1 to n do
    begin
      read(X);
      for j:=x downto 1 do 
        if s[j] then break;
      s[j]:=false;
      if i