SSL P2693 猪王争霸

题目大意：
有N位猪王参加了争霸赛。每个猪王都有一个名字a[i]，代表这个猪王的名字，一次一个非负数的整数b[i]，代表这个猪王的注水猪肉总斤数。
求按照注水猪肉多少从大到小的各位猪王的名字，若几个名字的注水猪肉数相同，则按照名字的字典顺序先后排列。以及求所有猪王贩卖注水猪肉的数量的总和的最后490位

N为1~1000
a[i]长度不超过13
b[i]<10^2000
整数的首位没有不必要的0

题解：
首先我们先对b[i]排序，N太小我直接插排，
注意一下：
①length(b[i]) < length(b[j])
②length(b[i])=length(b[j])且b[i] < b[j]
③length(b[i])=length(b[j])且b[i]=b[j]且a[i]>a[j]
这些情况都要交换，为什么自己手动推一下

然后我们做N遍高精度去加b[i],注意N可能是1000，然后b[i]最大是10^2000,所以总和最大可以达到10^2003,高精度的数组，要注意别开小，然后套N次高精度加法即可
这都不会就GG了

时间复杂度：O（N^2+b[i]长度总和）

const
    maxn=2005;
var
    a,b:Array [0..1001] of ansistring;
    ans:array [0..maxn] of longint;
    n,i:longint;

procedure px;
var
    i,j:longint;
begin
    for i:=1 to n do
      for j:=i+1 to n do
        if (length(b[i])<length(b[j])) or
           ((length(b[i])=length(b[j])) and (b[i]<b[j])) or
           ((length(b[i])=length(b[j])) and (b[i]=b[j]) and (a[i]>a[j]))
           then begin
                    a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
                    b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
                end;
end;

procedure jia(k:longint);
var
    i,j:longint;
begin
     for i:=length(b[k]) downto 1 do
       inc(ans[maxn-length(b[k])+i],ord(b[k][i])-48);
     for i:=maxn downto maxn-500 do
     begin
           ans[i-1]:=ans[i-1]+ans[i] div 10;
           ans[i]:=ans[i] mod 10;
     end;
end;

begin
    assign(input,'boss.in'); reset(input);
    assign(output,'boss.out');rewrite(output);
    readln(n);
    for i:=1 to n do
      begin
          readln(a[i]);
          readln(b[i]);
      end;
    for i:=1 to n do jia(i);
    px;
    for i:=1 to n do writeln(a[i]);
    for i:=maxn-490+1 to maxn do write(ans[i]);
    close(input); close(output);
end.