记录编号 20123 评测结果 AAAAAAAAAA
题目名称 罪犯问题A 最终得分 100
用户昵称 Gravatar苏轼 是否通过 通过
代码语言 Pascal 运行时间 0.071 s
提交时间 2010-10-20 20:02:29 内存使用 0.49 MiB
显示代码纯文本
program criminala(input,output);

var
  n,m,i,min,max:longint;
  pp:array[0..50002,0..1]of longint;

begin
  assign(input,'criminala.in');
  reset(input);

  assign(output,'criminala.out');
  rewrite(output);

  readln(n,m);

  for i:=1 to m do
  begin
    read(min);

    if min<0 then
      inc(pp[-min,0])
    else
      inc(pp[min,1]);
  end;

  min:=0;
  max:=0;
  for i:=1 to n do
    if pp[i,0]<pp[i,1] then
    begin
      min:=min+pp[i,0];
      max:=max+pp[i,1];
    end
    else
    begin
      min:=min+pp[i,1];
      max:=max+pp[i,0];
    end;


  writeln(max);
  writeln(min);

  close(input);
  close(output);
end.