Паскаль (двумерный массив)

[RAVAL))]

Нужна идея решения задачи.
Дана матрица N*N, если верхний и нижний элементы равны то увеличить текущий.
Пр. Вв
3
1 2 3
2 4 3
4 2 9

Пр. Выв.

1 2 3
2 5 3
4 2 9

[Карась]

А если матрца не 3 на 3 ,а например 10 на 10?

.....то увеличить текущий.

А зно значит текущий?

[RAVAL))]

не важно 3*3 или 10*10 или 100*100.
Вот что должно получится:
Пр вв.
45 84 69
51 31 58
45 84 67

Пр. выв
6
45 84 69
52 32 58
45 84 67


Т.к 45=45 мы инкрементируем 51 и получаем. Аналагично т.к 84=84 мы инкрементируем 31 и получаем 32

[Карась]

Тогда это просто.
В цикле For проходим по столбцам и свяряем первый и последний элемент.
Если они равны, то запускаем ещё один цикл который будет увеличивать на 1 всё что находиться между первым и последним элементом.

[RAVAL))]

Сообщение от Карась

Тогда это просто.
В цикле For проходим по столбцам и свяряем первый и последний элемент.
Если они равны, то запускаем ещё один цикл который будет увеличивать на 1 всё что находиться между первым и последним элементом.

так?

...
  For i:=1 to n Do Begin
    For  j:=1 to m Do 
      If A[i-1,j] = A[i+1,j] Then Inc(A[i,j]);
   End;
...

[Карась]

Похоже но не то....

Это выглядит так:

Const N = 10;
        M = 8;

Var x, y : Integer;
      mass : Array [1..N, 1..M] of Integer;

Begin

{Заполняем и выводим исходный массив}
Randomize;
For y := 1 To M Do
  Begin
    For x := 1 To N Do
      Begin
        Mass[x,y] := Random(10);
        Write(Mass[x,y], ' ');
      End;
    Writeln;
  End;

{Делаем то что хотим}
For x := 1 To N Do
  If Mass[x,1] = Mass[x, M] Then
    For y := 2 To (M - 1) Do Inc(Mass[x,y]);

{Выводим получившийся массив}
Writeln;
For y := 1 To M Do
  Begin
    For x := 1 To N Do Write(Mass[x,y], ' ');
    Writeln;
  End;

Readln;
End.

Разбирайся..