题目:
题目描述
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
输入输出格式
输入格式:
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行,分别为第一个候选人到第n个候选人的票数。
输出格式:
president.out
共两行,第一行是一个整数m,为当上总统的人的号数。
第二行是当上总统的人的选票。
思路:这题用不着排序,统计一下就行。
代码:
var st1,st:string;
n,l,l1,i,num:longint;
begin
read(n);
for i:=1 to n+1 do
begin
read(st);
l:=length(st);
if (l>l1)or(l=l1)and(st>st1) then
begin
st1:=st;
l1:=l;
num:=i;
end;
readln;
end;
writeln(num-1);
writeln(st1);
end.