39 lines
898 B
ObjectPascal
39 lines
898 B
ObjectPascal
var
|
|
n, m, i, j: int16;
|
|
a: array of array of int32;
|
|
s: int64 = 0;
|
|
|
|
begin
|
|
readln(n, m);
|
|
setlength(a, n + 2);
|
|
setlength(a[0], m + 2);
|
|
for i := 0 to m + 1 do
|
|
a[0][i] := 0;
|
|
for i := 1 to n do
|
|
begin
|
|
setlength(a[i], m + 2);
|
|
a[i][0] := 0;
|
|
for j := 1 to m do
|
|
read(a[i][j]);
|
|
a[i][m + 1] := 0
|
|
end;
|
|
setlength(a[n + 1], m + 2);
|
|
for i := 0 to m + 1 do
|
|
a[n + 1][i] := 0;
|
|
|
|
for i := 1 to n do
|
|
for j := 1 to m do
|
|
if a[i][j] <> 0 then
|
|
begin
|
|
if a[i][j] > a[i - 1][j] then
|
|
s := s + a[i][j] - a[i - 1][j];
|
|
if a[i][j] > a[i + 1][j] then
|
|
s := s + a[i][j] - a[i + 1][j];
|
|
if a[i][j] > a[i][j - 1] then
|
|
s := s + a[i][j] - a[i][j - 1];
|
|
if a[i][j] > a[i][j + 1] then
|
|
s := s + a[i][j] - a[i][j + 1];
|
|
s := s + 1
|
|
end;
|
|
writeln(s)
|
|
end.
|