Pascal.Работа с массивами.

[Ars/\an]

В общем задача выглядит так: "В заданной матрице вычислите суммы элементов строки и столбца , на пересечении которых находится максимальный элемент матрицы .Этот элемент замените полученной суммой . " Матрицу я создал а как дальше не пойму , помогите пожалуйста

program massiv;
uses crt;
const n=4;
type
m=array [1..n,1..n] of integer;
var
a:m;
 var
i1,i2:integer;
begin
clrscr;

for i1:=1 to n do
 for i2:=1 to n do
  a[i1,i2]:=random(50);
   for i1:=1 to n do begin
    for i2:=1 to n do
      write(a[i1,i2]:4);
writeln;
end;


readln;
end.

[freemanoid]

Вот две процедуры, которые тебе необходимы:

procedure FindMaxElement (SomeArray: array[1..n,1..n] of integer; var max_i, max_j: integer);
var
  i, j, temp_Max: integer;
begin
  max_i:= 1;
  max_j:= 1;
  for i:= 1 to n do
    for j:= 1 to n do
      if SomeArray[i, j] > SomeArray[max_i, max_j] then
      begin
        max_i:= i;
        max_j:= j;
      end;
end;

procedure ModifyMaxElement (var SomeArray: array [1..n,1..n] of integer; max_i, max_j: integer);
var
  i, j: integer;
begin
  for i:= 1 to max_i - 1 do
    Inc (SomeArray[max_i, max_j], SomeArray[i, max_j]);
  for i:= max_i + 1 to n do
    Inc (SomeArray[max_i, max_j], SomeArray[i, max_j]);
  for j:= 1 to max_j - 1 do
    Inc (SomeArray[max_i, max_j], SomeArray[max_i, j]);
  for i:= max_j + 1 to n do
    Inc (SomeArray[max_i, max_j], SomeArray[max_i, j]);
end;

[Pein95]

ну смотри напишу тебе сначало алгоритм попробуеш сам если не получитса помогу.
сначало цыклом пробегаешса по масиву и ищеш максимальный елемент, записываеш его индексы. потом пробегаешса по строке и столбце

опоздал

[Ars/\an]

Спасибо , что отозвались на просьбу, щас попробую )) посмотрим что получится =)