Получить новую матрицу путем сложения всех элементов данной матрицы…

Question

Получить новую матрицу путем сложения всех элементов данной матрицы с ее наименьшим по модулюэлементом.

burundu4ok · Accepted Answer

var a: array[1… 100,1… 100] of integer; i,j,n,min: integer; Begin read (n); min: =MaxInt; for i: =1 to n do for j: =1 to n do begin read (a[i,j]); if abs (a[i,j]) <abs (min) then min=a[i,j]; end; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =a[i,j]+min write (a[i,j]); end; writeln; end; end.

Получить новую матрицу путем сложения всех элементов данной матрицы…

Задание:

Решение: