[模拟][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.