PascalABC.NET
begin
var n := 6;
var a := ReadMatrInteger(n, n);
var min := a[0, 0];
for var i := 1 to n - 1 do
if a[i, i] < min then
min := a[i, i];
Print('Минимальный элемент главной диагонали равен', min)
end.
PascalABC.NET
begin
var n := 6;
var a := ReadMatrInteger(n, n);
var min := a[0, 0];
for var i := 1 to n - 1 do
if a[i, i] < min then
min := a[i, i];
Print('Минимальный элемент главной диагонали равен', min)
end.