洛谷 1781——宇宙總統（排序）

題目背景

宇宙總統競選

題目描述

地球歷公元6036年，全宇宙準備競選一個最賢能的人當總統，共有n個非凡拔尖的人竟選總統，現在票數已經統計完畢，請你算出誰能夠當上總統。

輸入輸出格式

輸入格式：
president.in

第一行為一個整數n,代表競選總統的人數。

接下來有n行，分別為第一個候選人到第n個候選人的票數。

輸出格式：
president.out

共兩行，第一行是一個整數m，為當上總統的人的號數。

第二行是當上總統的人的選票。

輸入輸出樣例

輸入樣例#1：
5
98765
12365
87954
1022356
985678
輸出樣例#1：
4
1022356
說明

票數可能會很大，可能回到100位數字。

n<=20

---

因為題目說票數有可能到100位，所以我們不能用整形來存放，只能用字串。可是用字串又該怎樣排序呢？
其實很簡單，也是選排，判斷如果(length(a[i])

var   n,i,x,j:longint;
      t:ansistring;
      a:array[1..20]of ansistring;
      b:array[1..20]of longint;
begin
  readln(n);
  for i:=1 to n do begin readln(a[i]); b[i]:=i; end;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if (length(a[i])<length(a[j]))or(length(a[i])=length(a[j]))and(a[i]<a[j])or(a[i]=a[j])and(b[i]>b[j]) then
        begin
          x:=b[i]; b[i]:=b[j]; b[j]:=x;
          t:=a[i]; a[i]:=a[j]; a[j]:=t;
        end;
  writeln(b[1]);
  writeln(a[1]);
end.