记录编号 |
20123 |
评测结果 |
AAAAAAAAAA |
题目名称 |
罪犯问题A |
最终得分 |
100 |
用户昵称 |
苏轼 |
是否通过 |
通过 |
代码语言 |
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.
-