3) максимальный элемент в заданной группе соседних строк матрицы a(n,n).паскаль

189

413

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

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

Котик2841

Информатика

4,5(2 оценок)

Const n = 10; var x: array[1..n, 1..n] of integer; i,j,i1,i2,xmax: integer; begin randomize; write('введите через пробел номера строк матрицы для поиска: '); read(i1,i2); writeln('исходная матрица'); for i: =1 to n do begin for j: =1 to n do begin x[i,j]: =random(101)-50; write(x[i,j]: 4) end; writeln end; xmax: =x[i1,1]; for i: =i1 to i2 do for j: =1 to n do if xmax< x[i,j] then xmax: =x[i,j]; writeln('максимальный элемент в указанном диапазоне: ', xmax); end. тестовое решение: введите через пробел номера строк матрицы для поиска: 4 6 исходная матрица 13 2 30 10 -5 42 45 41 13 17 -10 37 47 16 -37 -41 11 -37 -1 -48 -26 -9 -15 5 -31 -36 44 30 4 -20 -34 9 34 43 22 -36 35 1 33 11 -14 22 16 -42 15 4 48 -6 -18 45 -25 1 41 26 -39 -29 -34 -25 -10 -19 48 -35 -13 -18 1 32 -48 -47 45 49 -25 -40 -19 39 16 3 26 -23 41 16 -34 0 -3 9 -45 15 18 -42 32 0 48 10 -40 1 13 -29 -15 -17 7 34 максимальный элемент в указанном диапазоне: 48

marychevakristi

Информатика

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

Const nx =20; var i,j,n,m,max: integer; a: array[1..nx,1..nx] of integer; begin write('введите размер матрицы n'); read(n); max: =-100; write('введите номер строки m, меньше ',n-1); read(m); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random(100)-50; if a[m-1,j] > max then max: = a[i,m-1]; if a[m,j] > max then max: = a[i,m]; if a[m+1,j] > max then max: = a[i,m+1]; write(a[i,j]: 3); end; writeln; end; write('максимальный элемент ' ,m, '-й и соседних строк матрицы = ', max); end.