记录编号 19863 评测结果 AAAAAAAAAA
题目名称 罪犯问题A 最终得分 100
用户昵称 Gravatarwo shi 刘畅 是否通过 通过
代码语言 Pascal 运行时间 0.069 s
提交时间 2010-10-19 08:48:06 内存使用 0.13 MiB
显示代码纯文本
var
  n,m,i,j,total,t,s:longint;
  a,b:array[0..2000]of longint;

function max(x,y:longint):longint;
begin
  if x>y then exit(x);
  exit(y);
end;

function min(x,y:longint):longint;
begin
  if x<y then exit(x);
  exit(y);
end;

begin
  assign(input,'criminala.in'); reset(input);
  assign(output,'criminala.out'); rewrite(output);
  readln(n,m);
  for i:=1 to m do
  begin
    readln(s);
    if s>0 then
    inc(a[abs(s)])
    else inc(b[abs(s)]);
  end;
  for i:=1 to n do
  begin
    inc(total,max(a[i],b[i]));
    inc(t,min(a[i],b[i]));
  end;
  writeln(total);
  writeln(t);
  close(input);
  close(output);
end.