记录编号 20123 评测结果 AAAAAAAAAA
题目名称 罪犯问题A 最终得分 100
用户昵称 Gravatar苏轼 是否通过 通过
代码语言 Pascal 运行时间 0.071 s
提交时间 2010-10-20 20:02:29 内存使用 0.49 MiB
显示代码纯文本
  1. program criminala(input,output);
  2.  
  3. var
  4. n,m,i,min,max:longint;
  5. pp:array[0..50002,0..1]of longint;
  6.  
  7. begin
  8. assign(input,'criminala.in');
  9. reset(input);
  10.  
  11. assign(output,'criminala.out');
  12. rewrite(output);
  13.  
  14. readln(n,m);
  15.  
  16. for i:=1 to m do
  17. begin
  18. read(min);
  19.  
  20. if min<0 then
  21. inc(pp[-min,0])
  22. else
  23. inc(pp[min,1]);
  24. end;
  25.  
  26. min:=0;
  27. max:=0;
  28. for i:=1 to n do
  29. if pp[i,0]<pp[i,1] then
  30. begin
  31. min:=min+pp[i,0];
  32. max:=max+pp[i,1];
  33. end
  34. else
  35. begin
  36. min:=min+pp[i,1];
  37. max:=max+pp[i,0];
  38. end;
  39.  
  40.  
  41. writeln(max);
  42. writeln(min);
  43.  
  44. close(input);
  45. close(output);
  46. end.
  47.