нулевые элементы матрицы

[vladizp]

Сын-студент,а я Паскеле не очень-нужна помощь замечательных программистов этого сайта.
Условие:Заменить каждый нулевой элемент матрицы АnХn суммою индексов ряда и столбца,на пересечении которого он находится.Найти наибольший элемент полученной матрицы.(Алгоритм и программа в Паскеле).

[Alex11223]

Докатились, теперь студенты даже не сами просят решить свои задачи )

суммою индексов ряда и столбца,на пересечении которого он находится

for i:=1 to n do
   for j:=1 to n do
      if(a[i,j] = 0) then a[i,j]:=i+j;

Как-то так если под "суммой индексов ряда и столбца" имеется в виду это.

Найти наибольший элемент полученной матрицы

max:=a[1,1];
for i:=1 to n do
   for j:=1 to n do
      if a[i,j]>max then max:=a[i,j];

[vladizp]

Спасибо вам большое.

[vladizp]

а в екселе ету задачу можете сделать

[Alex11223]

В VBA что ли? Ну алгоритм тот же, а синтаксис Бейсика не знаю.
Кстати, если что, на всякий случай, выше на Паскале не весь код, а только основная часть)