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

83% thành viên diễn đàn không hỏi bài tập, còn bạn thì sao?