program criminala;
var
  data:array [1..1000,-1..1] of longint;
  n,m,t,i,min,max:longint;
begin
  fillchar (data,sizeof(data),0);
  min:=0;max:=0;
  assign (input,'criminala.in');
  reset (input);
  readln (n,m);
  for i:=1 to m do begin
    readln (t);
	if t>0 then inc(data[t,1]) else inc(data[-t,-1]);
  end;
  close (input);
  assign (output,'criminala.out');
  rewrite (output);
  for i:=1 to n do begin
    if data[i,-1]>data[i,1] then begin
	  inc(min,data[i,1]);
	  inc(max,data[i,-1]);
	end
	else begin
	  inc(min,data[i,-1]);
	  inc(max,data[i,1]);
	end;
  end;
  writeln (max);
  writeln (min);
  close (output);
end.