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