洛谷 P2670 扫雷游戏

优美的暴力

var
  a:array [0..101,0..101] of boolean;
  i,j,m,n,ii,jj,o:integer;
  g:char;
begin
   readln(m,n);
   fillchar(a,sizeof(a),false);
   for i:=1 to m do
       begin
          for j:=1 to n do
              begin
                 read(g);
                 if g='*' then a[i,j]:=true;
              end;
          readln;
       end;
     for i:=1 to m do
         begin
            for j:=1 to n do
                begin
                   if a[i,j]=false
                      then begin
                               o:=0;
                               for ii:=-1 to 1 do
                                   begin
                                      for jj:=-1 to 1 do
                                      if a[i+ii,j+jj] then o:=o+1;
                                   end;
                               write(o);
                           end
                      else write('*');
               end;
            writeln;
         end;
end.