[engwar]

Язык ты не уточнял, так что пример на паскале

Пусть Q - глобальная переменная типа array [1..3, 1..3] of integer

procedure p1
var
i, j : byte ;
min : real ;
begin
min := Q[1,1];
for i := 1 to 3 do
for j:= 1 to 3 do
if Q[i,j] < min then min := Q[i,j]
if min = 0 then writeln('Зачение = 0')
else for i := 1 to 3 do Q[i,i] := Q[i,i]+abs(min)
end;