洛谷 P1781 宇宙总统
题目描述
地球历公元6036年,全宇宙准备竞选一个最贤能的人当总统,共有n个非凡拔尖的人竟选总统,现在票数已经统计完毕,请你算出谁能够当上总统。
说明
票数可能会很大,可能会到100位数字。
n<=20
要注意输出时还要加入该候选人的序号(这条是我自己加的,洛谷上木有)
分析
这还用看吗?
直接字符串排序(条件为A长度
var
s2:array[1..100]of ansistring;
s1:array[1..100]of longint;
s:ansistring;
i,j,n,k:longint;
begin
readln(n);
for i:=1 to n do begin readln(s2[i]);s1[i]:=i; end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (length(s2[i])<length(s2[j]))or((length(s2[i])=length(s2[j]))and(s2[i]<s2[j])) then
begin
s:=s2[i];
s2[i]:=s2[j];
s2[j]:=s;
k:=s1[i];
s1[i]:=s1[j];
s1[j]:=k;
end;
writeln(s1[1]);
write(s2[1]);
end.