完全不会啊…… 附一份题解:http://blog.sina.com.cn/s/blog_69c3f0410100tyjl.html var i,j,k,r,c,x:longint; ch:..,..] of char; s:string; rr,cc:..] of boolean; pre:..] of longint; procedure init; begin readln(r,c); to r do begin readln(s); to c do ch[i,j]:=s[j]; end;…