Соседние элементы Опции

[Новичок]

Здравствуйте!
Поммогите решить задачу : Определить есть ли в двухмерном массиве одинаковые соседние элементы.

В одномерных массивах я использовал такой способ

for i:=1 to n-1
if a[i]=a[i+1] then write ('yes')  else write ('no')

но в двухмерных он наверное не пройдёт
ниже текст всей задачи

program f323;
const n=3;
var a:array [1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
  for i:=1 to n do  begin
for j:=1 to n do  write (a[i,j]:5);
   writeln   end;
for i:=1 to n-1 do
 for j:=1 to n-1 do
 if a[i,j]= a[i+1,j+1] then writeln ('есть)
 else write('нет');
   end.

[Archon]

А я бы сделал цикл while или repeat. Break, имхо, почти так же некрасиво, как и goto.

Гм. Полезно все же просматривать свои мессаджи.. В приведенном выше коде есть ошибка ((. Точнее, не совсем ошибка, ибо результат все же будет правильный, а скорее неэффективность.

Все же есть еще одна ошибка, и результат правильным будет не всегда =). Например, попробуй массив
5 5 5 5 5
5 6 7 8 9
5 2 3 4 5
5 6 7 8 1
Мой вариант:

. . . { Объявление переменных }
begin
	. . . { Заполнение массива }
	Answer := false;
	{ Проверяем горизонтальные пары: }
	j := 1;
	while not Answer and (j <= m) do begin
		i := 1;
		while not Answer and (i < n) do begin
			Answer := a[i, j] = a[i + 1, j];
			Inc(i);
		end;
		Inc(j);
	end;
	{ Проверяем вертикальные пары: }
	i := 1;
	while not Answer and (i <= n) do begin
		j := 1;
		while not Answer and (j < m) do begin
			Answer := a[i, j] = a[i, j + 1];
			Inc(j);
		end;
		Inc(i);
	end;
	if Answer then WriteLn('yes') else WriteLn('no');
end.

или

. . . { Объявление переменных }
begin
	. . . { Заполнение массива }
	Answer := false;
	j := 1;
	while not Answer and (j <= m) do begin
		i := 1;
		while not Answer and (i <= n) do begin
			if i <> n then Answer := a[i, j] = a[i + 1, j];
			if not Answer and (j <> m) then Answer := a[i, j] = a[i, j + 1];
			Inc(i);
		end;
		Inc(j);
	end;
	if Answer then WriteLn('yes') else WriteLn('no');
end.

[Lapp]

Все же есть еще одна ошибка, и результат правильным будет не всегда =).

Да, есть ошибка, верно. Sorry ((.

Извиняюсь и исправляюсь:

const
  n= 5;
  m= 5;

type
  tMatrix = array[1..n,1..m]of integer;

function Answer(var a: tMatrix): boolean;
var
  i,j,b: integer;
begin
  Answer:=false;
  for i:=1 to n do for j:=1 to m do begin
    b:= a[i,j];
    if (i>1)and(b=a[i-1,j])or(j>1)and(b=a[i,j-1])or(i<n)and(b=a[i+1,j])or(j<m)and(b=a[i,j+1])
    then begin
      Answer:= true;
      Exit
    end
  end
end;

var
  a: tMatrix;
  i,j: integer;

begin
  Randomize;
  for i:=1 to n do for j:=1 to m do a[i,j]:=Random(m*n);
  for i:=1 to n do begin
    for j:=1 to m do Write(a[i,j]:4);
    WriteLn
  end;
  if Answer(a) then WriteLn('yes') else WriteLn('no')
end.