如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1585

来自"NOCOW"

跳转到: 导航, 搜索

const 

 s1:string='Emperor Penguin';
 s2:string='Macaroni Penguin';
 s3:string='Little Penguin';

var 

 s:string;
 n,i:longint;
 a:array[1..3]of longint;

begin 

 readln(n);
 for i:=1 to n do
 begin
   readln(s);
   if s=s1 then inc(a[1]);
   if s=s2 then inc(a[2]);
   if s=s3 then inc(a[3]);
 end;
 if(a[1]>a[2])and(a[1]>a[3])then writeln(s1);
 if(a[2]>a[1])and(a[2]>a[3])then writeln(s2);
 if(a[3]>a[1])and(a[3]>a[2])then writeln(s3);

end. //by 唯我独尊

来自"http://www.nocow.cn/index.php/URAL/1585"
个人工具