陈婉秋的博客

var i,j,n,m,x,y,tot:integer;     a:array[1..1000,1..1000] of char;     que:array[1..1000,1..2] of integer;     v:array[1..1000,1..1000] of boolean;     xx:array[1..4] of integer = (0,1,0,-1);    

var a:array[1..100,1..100] of 0..1;     v:array[1..100] of boolean;     i,j,n:integer; procedure bfs; var  q:array[1..100] of integer;    l,r:integer;   begin       l:=1;r:=1;q[l]:=1;