codevs1055

题目地址:http://codevs.cn/problem/1055/

分析:

模拟

代码:

type qq=record
name:string;
num:longint;
end;
var a:array[1..100] of qq;
n,xb,i,j,max:longint;f:qq;t:boolean;s:string;
begin
readln(n);
for i:=1 to n do begin readln(s);t:=false;
for j:=1 to xb do if a[j].name=s then begin t:=true;inc(a[j].num);break;end;
if not t then begin inc(xb);a[xb].name:=s;inc(a[xb].num);end;end;writeln(xb);
for i:=1 to xb-1 do for j:=i+1 to xb do if a[i].name>a[j].name then begin f:=a[i];a[i]:=a[j];a[j]:=f;end;
while true do begin max:=0;
for i:=1 to xb do if a[i].num>max then max:=a[i].num;
if max=0 then halt;writeln(max);
for i:=1 to xb do if a[i].num=max then begin writeln(a[i].name);
a[i].num:=0;end;end;end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值