记录编号 19921 评测结果 AAAAAAAAAA
题目名称 罪犯问题A 最终得分 100
用户昵称 Gravatar王者自由 是否通过 通过
代码语言 Pascal 运行时间 0.068 s
提交时间 2010-10-19 12:38:17 内存使用 0.12 MiB
显示代码纯文本
program criminala;
var n,m,i,w1,w2,s:longint;
  a:array[-1000..1000]of longint;
function max(x,y:longint):longint;
begin
  if x>y then exit(x) else exit(y);
end;
function min(x,y:longint):longint;
begin
  if x<y then exit(x) else exit(y);
end;
begin
  assign(input,'criminala.in'); reset(input);
  assign(output,'criminala.out'); rewrite(output);
  readln(n,m);
  fillchar(a,sizeof(a),0);
  for i:=1 to m do
  begin
    readln(s);
    inc(a[s]);
  end;
  w1:=0; w2:=0;
  for i:=1 to n do
  begin
    inc(w1,max(a[i],a[-i]));
    inc(w2,min(a[i],a[-i]));
  end;
  writeln(w1);
  writeln(w2);
  close(input); close(output);
end.