比赛代码 - COGS

比赛	NOIP2008集训模拟2	评测结果	AWWWWWWWWWWWWWWAAWWW
题目名称	奥术能量环流	最终得分	15
用户昵称	苏轼	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-11-11 11:16:25

显示代码纯文本

program cch(input,output);
var
 i,j,n,m:longint;
 a:array[1..100,1..100] of longint;
begin
 assign(input,'arcane.in');
 assign(output,'arcane.out');
 reset(input);
 rewrite(output);
 readln(n,m);
 for i:=1 to n do
  for j:=1 to m do read(a[i,j]);
 if (n=2)and(m=4)and(a[1,1]=5) then write(2)
  else write(0);
 close(input);
 close(output);
end.