宇宙总统

宇宙总统

题目背景

宇宙总统竞选

题目描述

地球历公元6036年，全宇宙准备竞选一个最贤能的人当总统，共有n个非凡拔尖的人竟选总统，现在票数已经统计完毕，请你算出谁能够当上总统。

输入输出格式

输入格式：

president.in

第一行为一个整数n,代表竞选总统的人数。

接下来有n行，分别为第一个候选人到第n个候选人的票数。

输出格式：

president.out

共两行，第一行是一个整数m，为当上总统的人的号数。

第二行是当上总统的人的选票。

输入输出样例

输入样例#1：

5
98765
12365
87954
1022356
985678

输出样例#1：

4
1022356

说明

票数可能会很大，可能回到100位数字。

n<=20

 

 

 
var

 i,j,k,l:longint;

 a:array[0..10000]of string;

 t,y:int64;

 b:string;

begin

 readln(l);

 for i:=1 to l do

  begin

   readln(a[i]);

   if length(a[i])>length(b) then begin b:=a[i];k:=i;end//先比长度

          else if length(a[i])=length(b) then

                             if a[i]>b then begin//再直接比，因为这不会是ISBN码混乱

                                                b:=a[i];

                                                k:=i;

                                               end;

  end;

 writeln(k);

 write(b);

end.