// PascalABC.NET 3.0, сборка 1073const 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 endend.
Тестовое решение:Введите число строк и столбцов массива: 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