P1781——宇宙总统
2017-03-01 16:56
169 查看
题目描述
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
输入输出格式
输入格式:
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行,分别为第一个候选人到第n个候选人的票数。
输出格式:
president.out
共两行,第一行是一个整数m,为当上总统的人的号数。
第二行是当上总统的人的选票。
输入输出样例
输入样例#1:
5
98765
12365
87954
1022356
985678
输出样例#1:
4
1022356
其实只是一个非常简单的字符串排序罢了
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
输入输出格式
输入格式:
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行,分别为第一个候选人到第n个候选人的票数。
输出格式:
president.out
共两行,第一行是一个整数m,为当上总统的人的号数。
第二行是当上总统的人的选票。
输入输出样例
输入样例#1:
5
98765
12365
87954
1022356
985678
输出样例#1:
4
1022356
其实只是一个非常简单的字符串排序罢了
var n,i:longint; max:string; a:array[1..1000] of string; begin readln(n); for i:=1 to n do begin readln(a[i]); if length(a[i])>length(max) then max:=a[i]; if (a[i]>max) and (length(a[i])=length(max)) then max:=a[i]; end; for i:=1 to n do if a[i]=max then begin writeln(i); writeln(max); halt; end; end.