diff options
Diffstat (limited to 'others/volume1/114.pas')
-rw-r--r-- | others/volume1/114.pas | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/others/volume1/114.pas b/others/volume1/114.pas new file mode 100644 index 0000000..927a4af --- /dev/null +++ b/others/volume1/114.pas @@ -0,0 +1,36 @@ +var + m, n, i, j: int16; + h: array[0..1001, 0..1001] of int32; + count: int32 = 0; + +function stupid(x, y: int16): int8; + begin + if h[x][y] > h[x - 1][y] then + exit(0); + if h[x][y] > h[x + 1][y] then + exit(0); + if h[x][y] > h[x][y - 1] then + exit(0); + if h[x][y] > h[x][y + 1] then + exit(0); + stupid := 1 + end; + +begin + readln(m, n); + for i := 1 to m do + for j := 1 to n do + read(h[i][j]); + for i := 0 to m do + h[i][0] := 0; + for i := 1 to m + 1 do + h[i][n + 1] := 0; + for i := 0 to n do + h[0][j] := 0; + for i := 1 to n + 1 do + h[m + 1][i] := 0; + for i := 1 to m do + for j := 1 to n do + inc(count, stupid(i, j)); + writeln(count) +end. |