记录编号	91449	评测结果	AAAAAAAAAA
题目名称	罪犯问题A	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2014-03-14 19:38:36	内存使用	0.07 MiB

var
 i:longint;
 max,min,ca,n,m:int64;
 az,af:array[1..50000] of integer;
begin
 assign(input,'criminala.in');
 assign(output,'criminala.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   readln(n,m);
   fillchar(az,sizeof(az),0);
   fillchar(af,sizeof(af),0);
   for i:=1 to m do
    begin
     readln(ca);
     if ca>0 then
       inc(az[ca]);
     if ca<0 then
       inc(af[-ca]);
    end;
   max:=0;
   min:=0;
   for i:=1 to m do
    if az[i]>af[i] then
      begin
       inc(max,az[i]);
       inc(min,af[i]);
      end
     else
      begin
       inc(max,af[i]);
       inc(min,az[i]);
      end;
   writeln(max);
   writeln(min);
  //end;
 close(input);
 close(output);
end.