记录编号	20119	评测结果	AAAAAAAAAA
题目名称	罪犯问题A	最终得分	100
用户昵称	ZhouZn1	是否通过	通过
代码语言	Pascal	运行时间	0.077 s
提交时间	2010-10-20 20:00:23	内存使用	0.49 MiB

program zzn;
var
        i,j,m,n,x,max,min:longint;
        arr:array[1..2,1..50000]of longint;
procedure init;
begin
        assign(input,'criminala.in');
        reset(input);
        assign(output,'criminala.out');
        rewrite(output);
        readln(n,m);
        fillchar(arr,sizeof(arr),0);
        for i:=1 to m do
         begin
             readln(x);
             if x<0 then inc(arr[1,-x]);
             if x>0 then inc(arr[2,x]);
         end;
end;
procedure closef;
begin
        close(input);
        close(output);
end;

procedure main2;

begin
        min:=0;max:=0;
        for i:=1 to n do
         begin
             if arr[1,i]>arr[2,i] then inc(max,arr[1,i]) else inc(max,arr[2,i]);
             if arr[1,i]<arr[2,i] then inc(min,arr[1,i]) else inc(min,arr[2,i]);
         end;
        writeln(max);
        writeln(min);
end;
begin
        init;
        main2;
        closef;
end.