Question

Дана матрица j(3,3). поменять местами строки со столбцами. найти сумму элементов, лежащих на главной диагонали.

Answer 1

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(3,3,10,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  a:=Transpose(a);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var s:=0;
  for var i:=0 to 2 do s+=a[i,i];
  Writeln('S=',s)
end.

 15 40 13
 21 21 26
 14 24 31

 15 21 14
 40 21 24
 13 26 31

S=67