blob: 927a4af068f3b8f73e723b19d72ac0fb48e4be99 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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.
|
