Дан двумерный массив найти максимальный элемент и заполнить строку и столбец в которых он расположен нулями.

// pascalabc.net 3.0, сборка 1073 const   nn=30;   mm=30; var   a: array[1..mm,1..nn] of integer;   m,n,i,j,imax,jmax: integer; begin   writeln('введите число строк и столбцов массива: '); read(m,n);   randomize;   writeln('*** исходный массив ***');   imax: =1; jmax: =1;   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4);           if a[i,j]> a[imax,jmax] then               begin imax: =i; jmax: =j end       end;       writeln   end;   for i: =1 to m do a[i,jmax]: =0;   for j: =1 to n do a[imax,j]: =0;   writeln('*** результирующий массив ***');   for i: =1 to m do begin       for j: =1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: введите число строк и столбцов массива: 5 8 *** исходный массив ***   11 -10 -25 -25 -19  -3  -2    0   -24    1    5 -25 -21 -16 -16 -22   -21 -10 -12    7  20  16    0 -10   -13  25 -18  18  -5    9  15    1   -19 -10 -16    9 -11  11  24 -19 *** результирующий массив ***   11    0 -25 -25 -19  -3  -2    0   -24    0    5 -25 -21 -16 -16 -22   -21    0 -12    7  20  16    0 -10     0    0    0    0    0    0    0    0   -19    0 -16    9 -11  11  24 -19

82944тбайт=81 гбайт=3072 мбайт