строки&столбцы в матрице(?), найти самый большой элемент/ найти строку и столб, на пересечении кото Опции

[nadja yak]

Привет!Жду помощи профессионалов в этом довольно сложном для меня вопросе.
Условия задачи:Составить программу, которая в двумерном массиве находит самое большое значение и элементы строки и столбца, на пересечении которых он стоит, делает нулевыми.
Вот код. В нем я нашла мах элемент, и запомнила номер столбца и строчки где он находится(с последующим выводом на экран).

Program max_str;
 Uses crt;
 Const
 m=5;
 n=6;
 var i,j:byte;
 a: array [1..m, 1..n] of integer;
 max,u,t: integer;
begin
 clrscr;
 randomize;
 for i:=1 to m do
   begin
    for j:=1 to n do
      begin
         a[i,j]:=random(100);
         write(a[i,j]:4);
      end;
    writeln;
   end;
 writeln (' массив:');
 max:=a[1,1];

 for i:=1 to m  do
   begin
    for j:=1 to n do
      begin
        if a[i,j]>max then begin
         max:=a[i,j];
         u:=i;
         t:=j;
          end;
     end;
   end;
   write (max:4,'  ',u ,'  ' ,t,'  ' );
 readln;
end.

Как видите я НЕ смогла понять как обнулить все элементы на пересечении. Подскажите,пожалуйста, как это сделать.Надеюсь ошибок в сообщении не допустила.Жду помощи!

Вот как это должно выглядеть(вдруг я условие задачи изложила не понятно).==========>

Сообщение отредактировано: nadja yak - 12.04.2011 18:47

[volvo]

Вот так попробуй изменить циклы:

   for i := 1 to m do if i <> u then a[i, t] := 0;
   for j := 1 to n do if j <> t then a[u, j] := 0;