Паскаль. дана действительная матрица размера n×m, в которой есть хотя бы один ненулевой элемент. получите новую матрицу путем деления всех элементов заданной на ее наибольший по абсолютной величине элемент

261

338

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

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

ARproVL

Информатика

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

Const m = 5; n = 4; var a: array[1..m, 1..n] of real; i, j: integer; max: real; begin for i : = 1 to m do begin writeln(); for j : = 1 to n do begin a[i,j] : = random(200) - 100; write(a[i,j]: 5, ' '); if ((i=1) and (j=1)) or (max < abs(a[i,j])) then max: =abs(a[i,j]); end; end; writeln(); writeln('max = ', max); for i : = 1 to m do begin writeln(); for j : = 1 to n do begin a[i,j] : = a[i,j] / max; write(a[i,j]: 5: 2, ' '); end; end; end.