В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположены элемент с наименьшим значением. Предполагается что такой элемент единственный.

var

matr: array[1 ... 3, 1 ... 3] of integer;

i, j, sum, min, min_ind: integer;

begin

for i : = 1 to 3 do

for j : = 1 to 3 do

matr[i, j] : = random (10) + 1;

for i : = 1 to 3 do

begin

for j : = 1 to 3 do

Write (matr[i, j], ' ') ;

Writeln;

end;

min : = matr[1, 1];

for i : = 1 to 3 do

for j : = 1 to 3 do

if matr[i, j] < min then

begin

min : = matr[i, j];

min_ind : = i;

end;

sum : = 0;

for j : = 1 to 3 do

sum : = sum + matr[min_ind, j];

Writeln ('Сумма твоих элементов=', sum) ;

end.