文章标题

var

s,f:array[0..200,0..200]of longint;

n,m,i,j,k,x,y:longint;

function min(a,b:longint):longint;

begin

if a>b then exit(b)

else exit(a);

end;

var

z:string;

begin

readln(n,m);

fillchar(f,sizeof(f),$7f);

for i:=1 to n do

begin

readln(z);

for j:=1 to m do

begin

val(z[j],s[i,j]);

if s[i,j]=1 then f[i,j]:=0;

end;

end;

for k:=1 to m+n do

for i:=1 to n do

for j:=1 to m do

begin

y:=min(f[i+1,j]+1,f[i-1,j]+1);

x:=min(f[i,j+1]+1,f[i,j-1]+1);

x:=min(x,y);

f[i,j]:=min(f[i,j],x);

end;

for i:=1 to n do

begin

for j:=1 to m do write(f[i,j],’ ‘);

writeln;

end;

end.