题目背景
宇宙总统竞选
题目描述
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
输入输出格式
输入格式:
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行,分别为第一个候选人到第n个候选人的票数。
输出格式:
president.out
共两行,第一行是一个整数m,为当上总统的人的号数。
第二行是当上总统的人的选票。
输入输出样例
输入样例#1:
5 98765 12365 87954 1022356 985678
输出样例#1:
4 1022356
说明
票数可能会很大,可能回到100位数字。
n<=20
var
s,max:string;//由于票数会大很多,所以用字符串;n,j,i,ans:longint;
procedure win;//比大小
begin
if length(s)>length(max) then begin//长度小说明数值小,所以直接出
ans:=i;
max:=s;
exit;
end;
if length(s)>length(max) then begin//长度长说明数值大,所以直接出
ans:=i;
max:=s;
exit;
end;
and(length(s)=length(max)) then//在长度相等的情况下,相对的一位比较
begin
ans:=i;
max:=s;
end;
end;
readln(n);
max:='';//清空最大,否则可能会打乱结果
for i:=1 to n do
begin
readln(s);
for j:=length(s) downto 1 do win;//从最后一位开始比较,调动win过程;
end;
writeln(ans);
write(max);
end.