1549 水王争霸

题目

众所周知，IOIForum有很多水王，他们的发贴数是如此之多，以至于必须要用高精度数才能保存。
　　为了迎接国庆，IOIForum决定举行一次水王争霸赛，比赛的规则是将这些水王截止到2003年9月30日23时59分59秒这一刻所发的总贴数从大到小进行排序。每个水王当然都想取得尽量靠前的名次，所以他们竭尽全力，不择手段地进行灌水。
　　终于，激动人心的一刻到来了，2003年10月1日0时0分0秒，你作为裁判得到了每个水王的发贴数，现在，你的任务是公正地把这些水王按照发贴数从大到小进行排序。

题解

数据太小，打了冒泡，时间复杂度

$$O(n^2)$$

代码

var
  n,i,j,k:longint;
  f:array[0..1000]of string;
  a:array[0..1000]of ansistring;
  b:array[0..1000]of longint;

begin
  readln(n);
  for i:=1 to n do
    begin
      readln(f[i]);
      readln(a[i]);
      b[i]:=length(a[i]);
    end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if ((a[i]<a[j])and(b[i]=b[j]))
         or(b[i]<b[j]) or((b[i]=b[j])and(a[i]=a[j])and(f[i]>f[j])) then
        begin
          a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
          f[0]:=f[i];f[i]:=f[j];f[j]:=f[0];
          b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
        end;
  for i:=1 to n do
    writeln(f[i]);
 end.