记录编号	19862	评测结果	AAAAAAAAAA
题目名称	罪犯问题A	最终得分	100
用户昵称	belong.zmx	是否通过	通过
代码语言	Pascal	运行时间	0.068 s
提交时间	2010-10-19 08:47:18	内存使用	0.12 MiB

program criminala(input,output);
var
 n,m:longint;
 a:array[1..1000,1..2]of integer;
 i,j,x,t:longint;
 ans1,ans2:longint;

begin
 assign(input,'criminala.in');
 reset(input);
 readln(n,m);
 for i:=1 to m do
 begin
  readln(x);
  if x>0 then inc(a[x,1]);
  if x<0 then inc(a[-x,2]);
 end;
 close(input);

 for i:=1 to n do
  if a[i,1]>a[i,2] then
  begin
   t:=a[i,1];
   a[i,1]:=a[i,2];
   a[i,2]:=t;
  end;

 for i:=1 to n do
 begin
  inc(ans1,a[i,1]);
  inc(ans2,a[i,2]);
 end;

 assign(output,'criminala.out');
 rewrite(output);
 writeln(ans2);
 writeln(ans1);
 close(output);
end.