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

program zz1;var i, j, s: integer;sr:real;b, c: array[1..8,1..8] of integer;begins:=10000; for i:=1 to 8 do begin for j:=1 to 8 do begin b[i, j]:=random(10)+1; // заполнение матрицы случайными числами и вывод на экран write(b[i, j]:3); if abs(b[i, j]) < s then s:= b[i, j]; // нахождение наименьшего end; writeln; end; writeln; for i:=1 to 8 do begin for j:=1 to 8 do begin c[i, j]:= b[i,j] + s; end; end; for i:=1 to 8 do begin //вывод ответа for j:=1 to 8 do begin write(c[i, j]:3); end; writeln; end;end.