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

291

443

Посмотреть ответы 2

Ответы на вопрос:

zarya0207

Информатика

4,8(75 оценок)

// 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