车厢重组

Description

　　在一个旧式的火车站旁边有一座桥，其桥面可以绕河中心的桥墩水平旋转。一个车站的职工发现桥的长度最多能容纳两节车厢，

如果将桥旋转180度，则可以把相邻两节车厢的位置交换，用这种方法可以重新排列车厢的顺序。于是他就负责用这座桥将进站的车

厢按车厢号从小到大排列。他退休后，火车站决定将这一工作自动化，其中一项重要的工作是编一个程序，输入初始的车厢顺序，

计算最少用多少步就能将车厢排序。 

Input

输入文件有两行数据，第一行是车厢总数N（不大于10000），第二行是N个不同的数表示初始的车厢顺序。

Output

一个数据，最小的旋转次数

Sample Input

4

4 3 2 1

Sample Output

6

程序如下：

• var 
    n,i,s,g,j:longint;
    a:array[1..10000]of longint;
  begin
    readln(n);
    for i:=1 to n do read(a[i]);
    for j:=1 to n do
      for i:=1 to n-j do
        if a[i]>a[i+1] then  //例如:a[i]=4 a[i+1]=3 a[i]<a[i+1] 那么就把位置反过来，并次数加1
        begin
          s:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=s;
          inc(g);
        end;
    writeln(g);
  end.

Description

　　在一个旧式的火车站旁边有一座桥，其桥面可以绕河中心的桥墩水平旋转。一个车站的职工发现桥的长度最多能容纳两节车厢，

如果将桥旋转180度，则可以把相邻两节车厢的位置交换，用这种方法可以重新排列车厢的顺序。于是他就负责用这座桥将进站的车

厢按车厢号从小到大排列。他退休后，火车站决定将这一工作自动化，其中一项重要的工作是编一个程序，输入初始的车厢顺序，

计算最少用多少步就能将车厢排序。 

Input

输入文件有两行数据，第一行是车厢总数N（不大于10000），第二行是N个不同的数表示初始的车厢顺序。

Output

一个数据，最小的旋转次数

Sample Input

4

4 3 2 1

Sample Output

6

程序如下：

• var 
    n,i,s,g,j:longint;
    a:array[1..10000]of longint;
  begin
    readln(n);
    for i:=1 to n do read(a[i]);
    for j:=1 to n do
      for i:=1 to n-j do
        if a[i]>a[i+1] then  //例如:a[i]=4 a[i+1]=3 a[i]<a[i+1] 那么就把位置反过来，并次数加1
        begin
          s:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=s;
          inc(g);
        end;
    writeln(g);
  end.
  

•