Дан двумерный массив размером 6×6, заполненный целыми числами с клавиатуры. найдите наименьший элемент среди элементов главной диагонали.​

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.