宇宙总统竞选

最新推荐文章于 2024-10-09 14:13:31 发布

原创最新推荐文章于 2024-10-09 14:13:31 发布 · 591 阅读

0 ·

CC 4.0 BY-SA版权

洛谷试炼场普及组专栏收录该内容

44 篇文章

订阅专栏

本文介绍了一道关于宇宙总统竞选的程序设计题目，通过比较候选人获得的票数字符串来确定胜出者。输入包括候选人数量及每位候选人的票数，输出最高票数者的编号与票数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述
地球历公元6036年，全宇宙准备竞选一个最贤能的人当总统，共有n个非凡拔尖的人竟选总统，现在票数已经统计完毕，请你算出谁能够当上总统。
输入输出格式
输入格式：
president.in
第一行为一个整数n,代表竞选总统的人数。
接下来有n行，分别为第一个候选人到第n个候选人的票数。
输出格式：
president.out
共两行，第一行是一个整数m，为当上总统的人的号数。
第二行是当上总统的人的选票。
输入输出样例
输入样例#1：
5
98765
12365
87954
1022356
985678
输出样例#1：
4
1022356
说明
票数可能会很大，可能会到100位数字，所以要用到字符串，并且要注意到用字符串时，数字长度一样，也要排查。（其实就是个排序找最大的）
n<=20

程序如下：

var
  n,i,max:longint;
  a:array[0..50] of string;
  ans:string;
  ans1:longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(a[i]);
    if length(a[i])>max then max:=length(a[i]);
  end;
  ans:='';
  for i:=1 to n do
    if (a[i]>ans) and (length(a[i])=max) then
    begin
      ans:=a[i];
      ans1:=i;
    end;
  writeln(ans1);
  write(ans);
end.