Дана матрица J(3,3). Поменять местами строки со столбцами. Найти сумму элементов, лежащих на главной диагонали.
Дана матрица J(3,3). Поменять местами строки со столбцами. Найти сумму элементов, лежащих на главной диагонали.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы