洛谷 1781——宇宙总统(排序)
题目背景
宇宙总统竞选
题目描述
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
输入输出格式
输入格式:
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行,分别为第一个候选人到第n个候选人的票数。
输出格式:
president.out
共两行,第一行是一个整数m,为当上总统的人的号数。
第二行是当上总统的人的选票。
输入输出样例
输入样例#1:
5
98765
12365
87954
1022356
985678
输出样例#1:
4
1022356
说明
票数可能会很大,可能回到100位数字。
n<=20
因为题目说票数有可能到100位,所以我们不能用整形来存放,只能用字符串。可是用字符串又该怎样排序呢?
其实很简单,也是选排,判断如果(length(a[i])
var n,i,x,j:longint;
t:ansistring;
a:array[1..20]of ansistring;
b:array[1..20]of longint;
begin
readln(n);
for i:=1 to n do begin readln(a[i]); b[i]:=i; end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (length(a[i])<length(a[j]))or(length(a[i])=length(a[j]))and(a[i]<a[j])or(a[i]=a[j])and(b[i]>b[j]) then
begin
x:=b[i]; b[i]:=b[j]; b[j]:=x;
t:=a[i]; a[i]:=a[j]; a[j]:=t;
end;
writeln(b[1]);
writeln(a[1]);
end.