比赛代码 - COGS

比赛	NOIP2008集训模拟4	评测结果	WWWWWWWWWWWWW
题目名称	潜入辛迪加	最终得分	0
用户昵称	bing	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-13 11:30:58

显示代码纯文本

program bing;
var
 f1,f2:text;
 n,m,i,j,x,xt,yt:integer;
begin
 assign(f1,'syndicate.in');reset(F1);
 assign(f2,'syndicate.out');rewrite(f2);
 readln(f1,n,m);
 xt:=0;yt:=0;
 for i:=1 to n do
 for j:=1 to n do
 begin
  read(f1,x);
  if x=0 then inc(xt);
  if x=-2 then inc(yt);
 end;
 write(f2,(xt-2*yt)*2);
 close(f1);close(f2);
end.