const fi='dequy1.inp';
fo='dequy1.out';
var
i,n,j,d,k,m:longint;
a:array[1..10000,1..10000] of longint;
f:text;
procedure try(i,j:longint);
begin
If a[i,j]<>1 then exit;
If (i<1) OR (i>m) OR (j<1) OR (j>n) then exit;
a[i,j]:=0;
if a[i-1,j]=1 then try(i-1,j);
if a[i,j-1]=1 then try(i,j-1);
if a[i+1,j]=1 then try(i+1,j);
if a[i,j+1]=1 then try(i,j+1);
end;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do
begin
for j:=1 to m do read(f,a[i,j]);
readln(f);
end;
close(f);
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=1 then
begin
d:=d+1;
try(i,j);
end;
writeln(f,d);
close(f);
end.
Tại sao code bị exit code 201?
Đã có bạn hỏi câu tương tự nè,câu trả lời của bạn lib là chuẩn nhất, bạn cho giá trị nhỏ lại là ok
3 Likes