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

Question

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

Comments

В задании так было написано

---

И на каком языке программа нужна? На Паскале?

---

После транспонирования, язык программирования Delphi

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