Вопрос по информатике:
Дана матрица J(3,3). Поменять местами строки со столбцами. Найти сумму элементов, лежащих на главной диагонали.
Пожаловаться
- 25.12.2017 08:55
- Информатика
- remove_red_eye 9334
- thumb_up 13
Ответы и объяснения 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 26.12.2017 14:26
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы