Задача с матрицами в Delphi

[Mollerat]

Народ помогите решить вот такую задачу:

Будем называть соседями элемента с индексами i j некоторой матрицы такие ее элементы, соответствующие индексы которых отличаются от i j не более чем на одну единицу. Для целочисленной матрицы А(аij) размерности m х m найти матрицу В, состоящую из нулей и единиц, элемент bij которой равен единице, если среди соседей aij есть не менее двух совпадающих с аij.

[NeshSoft]

А Вы пробовали сами решить? В каком месте не получается?

[Mollerat]

Я не могу понять: как найти среди соседей aij не менее двух совпадающих с аij.

[NeshSoft]

Сообщение от Mollerat

Я не могу понять: как найти среди соседей aij не менее двух совпадающих с аij.

for i:=1 to m do
   for j:=1 to m do
      begin
      kolichestvososedej:=0;
      if i>1 then //если не первая строка то сравним текущий элемент с элементом выше текущего
         if a[i,j]=a[i-1,j] then inc(kolichestvososedej);
      if i<m then //если не последняя строка то сравним текущий элемент с элементом ниже текущего
         if a[i,j]=a[i+1,j] then inc(kolichestvososedej);
      if j>1 then //если не первый столбец то сравним текущий элемент с элементом левее текущего
         if a[i,j]=a[i,j-1] then inc(kolichestvososedej);
      if j<m then //если не последний столбец то сравним текущий элемент с элементом правее текущего
         if a[i,j]=a[i,j-1] then inc(kolichestvososedej);
      if kolichestvososedej >=2 then B[i,j]:=1 else B[i,j]:=0;
      end;

Предполагается, что размерности матрицы [1..m]

[Mollerat]

БОЛЬШОЕ СПАСИБО!!! ПРОГРАММА РАБОТАЕТ ОТЛИЧНО!!!

[NeshSoft]

Сообщение от Mollerat

БОЛЬШОЕ СПАСИБО!!! ПРОГРАММА РАБОТАЕТ ОТЛИЧНО!!!

Можно выразить благодарность отзывом (значёк весов)