Составление процедуры для определения минимального элемента матрицы

[Boney]

Используя данную процедуру, определить значение минимального элемента заданной матрицы Q и если оно отличается от нуля, то увеличить каждыйэлемент главной диагонали матрицы на модуль этого значения.В противном случаи отпечаталь сообщение ('Элемент не равен нулю')

0.8 -4 1.8
Q= - 3.1 0 2.0 {матрица Q (3 на 3)}
9.42 19.5 -1

[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;