[模拟][NOIP2007] 统计数字

NOIP2007 统计数字

时间限制: 1 Sec 内存限制: 128 MB

题目描述

  • 某次科研调查时得到了n个自然数,每个数均不超过1500000000(1.5*109)。已知不相同的数不超过10000个,现在需要统计这些自然数各自出现的次数,并按照自然数从小到大的顺序输出统计结果。

输入

  • 第一行是整数n,表示自然数的个数;
    第2~n+1每行一个自然数。

输出

  • 包含m行(m为n个自然数中不相同数的个数),按照自然数从小到大的顺序输出。每行输出两个整数,分别是自然数和该数出现的次数,其间用一个空格隔开。

样例输入

  • 8
    2
    4
    2
    4
    5
    100
    2
    100

样例输出

  • 2 3
    4 2
    5 1
    100 2

提示

  • 40%的数据满足:1<=n<=1000
    80%的数据满足:1<=n<=50000
    100%的数据满足:1<=n<=200000,每个数均不超过1500 000 000(1.5*109)
var
 w:array[1..200000]of longint;
 i,j:longint;
 a,n,sum,ci:longint;
procedure sort(l,r: longint);
var i,j,x,y,c: longint;
begin
 i:=l; j:=r; x:=w[(l+r) div 2];
 repeat
  while w[i]<x do inc(i);
  while x<w[j] do dec(j);
  if not(i>j)
  then
   begin
    c:=w[i]; w[i]:=w[j]; w[j]:=c;
    inc(i); dec(j);
   end;
 until i>j;
 if l<j then sort(l,j);
 if i<r then sort(i,r);
end;
begin
 readln(n);
 for i:=1 to n do
  readln(w[i]);
 sort(1,n);
 ci:=1;
 while ci<=n do
  begin
   sum:=0;
   for j:=ci to n do
    begin
     if w[j]=w[ci]
     then inc(sum)
     else break;
    end;
   writeln(w[ci],' ',sum);
   inc(ci,sum);
  end;
end.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值