车厢重组

SSLGZ-2275-车厢重组

题意：

在一个旧式的火车站旁边有一座桥，其桥面可以绕河中心的桥墩水平旋转。一个车站的职工发现桥的长度最多能容纳两节车厢，如果将桥旋转180度，则可以把相邻两节车厢的位置交换，用这种方法可以重新排列车厢的顺序。于是他就负责用这座桥将进站的车厢按车厢号从小到大排列。他退休后，火车站决定将这一工作自动化，其中一项重要的工作是编一个程序，输入初始的车厢顺序，计算最少用多少步就能将车厢排序。

解题思路：

车厢的排序方法和冒泡的原理一模一样，所以直接打一个冒泡，再记录交换的次数，最后输出就行了。

var        a:array[0..10000]of longint;        i,j,n,ans:longint;begin        readln(n);        for i:=1 to n do                read(a[i]);        for i:=1 to n-1 do                for j:=i+1 to n do                        if a[i]>a[j] then                        begin                                a[0]:=a[i];                                a[i]:=a[j];                                a[j]:=a[0];                                inc(ans);                        end;        writeln(ans);end.