Двумерныйе масиивы Опции

[fly]

Помогите разобраься с задачкой.Условие такое:
Вводиться массив чисел MxM.Определить,сколько в нём пар одинаковых соседних элементов.
Пример:
Вводим массив размером 4x4
1 2 3 4
1 3 4 5
5 2 2 3
9 2 6 5

Ответ:3

Вот коешто написал:

Код

var
     A:array[1..100,1..100] of integer;
     n,b,i,j:integer;
begin
writeln('vv razmer massiva');
readln(n);
for i:=1 to n do
writeln('vvodite',n,'chisel');
for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
        Write('...');
    Readln(a[i,j]);
    end;
b:=0;
for i:=1 to n-1 do
begin
if a[i,1]=a[i,2] then b:=b+1;
if a[i,1]=a[i+1,2] then b:=b+1;
if a[i,1]=a[i+1,1] then b:=b+1;
for j:=2 to n-1 do
  begin
  if a[i,j]=a[i,j+1] then b:=b+1;
  if a[i,j]=a[i+1,j] then b:=b+1;
  if a[i,j]=a[i+1,j+1] then b:=b+1;
  if a[i,j]=a[i+1,j-1] then b:=b+1;
  end;
if a[i,n]=a[i+1,n] then b:=b+1;
if a[i,n]=a[i+1,n-1] then b:=b+1;
end;
for i:=1 to n-1 do
if a[n,i]=a[n,i+1] then b:=b+1
end;
writeln(b);
readln;
end.

Но почемуто когда вводишь такой массив:
1 2 3 4
1 3 4 5
5 2 2 3
9 2 6 5

Ответ получается 42,а должно быть 3.
Что неправильно в моём тексте?

[fly]

Когда вводишь такой массив:
1 2 3 4
1 3 4 5
5 2 2 3
9 2 6 5

Ответ получается 24,я должно быть 3.Никак не пойму где ошибка.Вот мой текст

Код

var
     A:array[1..100,1..100] of integer;
     n,i,j:integer;
     count:integer;
begin
writeln('vv razmer massiva');
readln(n);
for i:=1 to n do
writeln('vvodite',n,'chisel');
for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
        Write('...');
    Readln(a[i,j]);
    end;
count := 0;
  for i := 1 to n do
   for j := 1 to n do begin
     if (succ(j) <= n) and (a[i, j] = a[i, succ(j)]) then inc(count);
     if (succ(i) <= n) and (a[i, j] = a[succ(i), j]) then inc(count);
   end;
   writeln(count);
   readln;
   end;
end.

Где у меня ошибка?

Сообщение отредактировано: fly - 4.05.2007 21:57