題目背景

宇宙總統(tǒng)競選

題目描述

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

輸入輸出格式

PResident.in

第一行為一個整數(shù)n,代表競選總統(tǒng)的人數(shù)。

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

president.out

共兩行，第一行是一個整數(shù)m，為當上總統(tǒng)的人的號數(shù)。

第二行是當上總統(tǒng)的人的選票。

輸入輸出樣例

59876512365879541022356985678輸出樣例#1：
41022356
說明
票數(shù)可能會很大，可能回到100位數(shù)字。
n<=20
var
 s,max:string;//由于票數(shù)會大很多，所以用字符串； n,j,i,ans:longint;procedure win;//比大小begin if length(s)>length(max) then begin//長度小說明數(shù)值小，所以直接出                                ans:=i;                                max:=s;                               exit;
                             end;
if length(s)>length(max) then  begin//長度長說明數(shù)值大，所以直接出                                                 ans:=i;                                                 max:=s;
                                                 exit;                                               end;
 if (ord(max[j])-48<ord(s[j])-48)     and(length(s)=length(max)) then//在長度相等的情況下，相對的一位比較  begin   ans:=i;   max:=s;  end;
end;
begin readln(n); max:='';//清空最大，否則可能會打亂結(jié)果 for i:=1 to n do  begin   readln(s);   for j:=length(s) downto 1 do win;//從最后一位開始比較，調(diào)動win過程；  end; writeln(ans); write(max);end.