用Free Pascal IDE写程序,这道题该怎么写?牧场里的奶牛们都患有十分严重的恐高症,所以它们只有在盆地中玩耍才会有安全感,牧场被划分成了H*W个小方格,每个小方格都有一个海拔高度,盆地是指那些海拔高度不高于周围8个小方格的小方格,编一程序统计牧场里共有多少个这样的盆地小方格.假设边缘的方格都不是盆地小方格.输入样例4 52 3 4 5 77 1 8 9 108 1 3 2 89 9 9
网友回答
const c:array[1..8,1..2] of longint=((1,0),(-1,0),(1,1),(-1,1),(0,1),(-1,-1),(1,-1),(0,-1));
var n,m,i,j,k,h,s:longint;
a:array[0..1000,0..1000] of longint;
beginread(n,m);
for i:=1 to n do for j:=1 to m do read(a[i,j]);
for i:=2 to n-1 do
for j:=2 to m-1 do
begin k:=1; for h:=1 to 8 do if a[i+c[h,1],j+c[h,2]]