В данной действительной...

В данной действительной квадратной матрице порядка 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.