В данной действительной квадратной матрице порядка n найти сумму ...

Vasy

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.