记录编号	1077	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]统计数字	最终得分	100
用户昵称	name:弓虽	是否通过	通过
代码语言	Pascal	运行时间	0.472 s
提交时间	2008-07-23 21:06:37	内存使用	2.40 MiB

program pcount(input,output);
var
 a:array [1..200000] of longint;
 b:array [1..200000,1..2] of longint;
 n,m,i,j,fu,k:longint;
procedure pai(head,tail:longint);
var
 i,k,l,o:longint;
begin
 i:=head;
 l:=tail;
 k:=a[(i+l) div 2];
   repeat
   while a[i]<k do i:=i+1;
    while a[l]>k do l:=l-1;
     if i<=l then
      begin
       o:=a[i];
       a[i]:=a[l];
       a[l]:=o;
       i:=i+1;
       l:=l-1;
      end;
     until i>l;
   if i<tail then pai(i,tail);
   if head<l then pai(head,l);
  end;

begin
 assign(input,'pcount.in');
 assign(output,'pcount.out');
 reset(input);
 rewrite(output);
 readln(n);
 for i:=1 to n do
 a[i]:=0;
 for i:=1 to n do read(a[i]);
 pai(1,n);
 fu:=1;k:=1;
 for i:=1 to n do begin
  if a[i]<>a[i+1] then begin
   b[k,1]:=a[i];
   b[k,2]:=fu;
   inc(k); fu:=1;
   end     else fu:=fu+1;
   end;
 for i:=1 to k-1 do begin
  write(b[i,1],' ',b[i,2]);
  writeln;
     end;
  close(input);
  close(output);
end.