记录编号	131859	评测结果	AAAAAAAA
题目名称	劣质的草	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.078 s
提交时间	2014-10-24 22:34:43	内存使用	2.08 MiB

var
r,c,ans:longint;
f:array[0..1001,0..1001]of integer;

  procedure ss(x,y:integer);
  begin
  f[x,y]:=0;
  if f[x+1,y+1]>0 then ss(x+1,y+1);
  if f[x+1,y]>0 then ss(x+1,y);
  if f[x+1,y-1]>0 then ss(x+1,y-1);
  if f[x,y+1]>0 then ss(x,y+1);
  if f[x,y-1]>0 then ss(x,y-1);
  if f[x-1,y+1]>0 then ss(x-1,y+1);
  if f[x-1,y]>0 then ss(x-1,y);
  if f[x-1,y-1]>0 then ss(x-1,y-1);
  end;

begin
assign(input,'badgras.in');
assign(output,'badgras.out');
reset(input);
rewrite(output);
read(r,c);
for r:=1 to r do
for c:=1 to c do
read(f[r,c]);

for r:=1 to r do
for c:=1 to c do
if f[r,c]>0 then
  begin
  inc(ans);
  ss(r,c);
  end;

writeln(ans);
close(input);close(output);
end.