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

program zz1;

var i, j, s: integer; sr:real;

b, c: array[1 ... 8,1 ... 8] of integer;

begin

s:=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.