Паскаль-замена элементов в 2-мерном массиве

[Raydenne]

Подскажите , пожалуйста, как составить программу (Паскаль), меняющую все отрицательные элементы двумерного массива A(N,M) на максимальный элемент этого массива. С одномерными массивами у меня проблем нет. Заранее благодарен.

[MOTOCoder]

Это так же как в одномерном, только его нужно во вложенном цикле обрабатывать.

[Raydenne]

А где это можно как пример увидеть?

[Developer]

Код: Выделить всё

for j := 1 to N do
  for i := 1 to M do
     if (A[j, i] < 0)
       A[j, i] = max;

нечто такое должно быть для 2мерного

[Raydenne]

А как в начале?
Var mas:array[1..M,1..N]of integer; Так?

[MOTOCoder]

Вообще так, но тогда нужно поменять местами N и M в коде замены.

[Хыиуду]

Ага. Ну, и max надо найти перед этим присвоением.