洛谷 P1781 宇宙总统

题目背景

宇宙总统竞选

题目描述

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

输入输出格式

输入格式：
president.in

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

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

输出格式：
president.out

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

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

输入输出样例

输入样例#1：
5
98765
12365
87954
1022356
985678
输出样例#1：
4
1022356
说明

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

n<=20

仔细分析题目，可以发现用字符串排序即可做出。
不过本人较懒，题目只求一个最大值，边读边做即可。
枚举：
1.如果读入字符串比当前最大字符串位数大则替换。
2.如果读入字符串与当前字符串位数相同时直接对比。
3.字符串按ASCII码排序，所以99可能大于111，所以第二点必须在位数相同时再进行比较。

var
   n,i,s:longint;
   p,max:string;
begin
    readln(n);
    max:=' ';
    for i:=1 to n do
        begin
            readln(p);
            if ((p>max) and (length(p)=length(max))) or (length(p)>length(max)) then
               begin
                   max:=p;
                   s:=i;
               end;
        end;
    writeln(s);
    writeln(max);

end.