Question

Дана матрица С(m, n) (m=3, n=3). Найти произведение
последнего элемента матрицы и суммы элементов ее главной
диагонали.
Элементы главной диагонали матрицы.
Введите построчно элементы массива С:
21 -5 7
6 -11 0
7 3 3
Сумма равна 13
Произведение равно 39
Повторите запуск программы, сформировав элементы матрицы с помощью
генератора случайных чисел в диапазоне от [-20;20]. Элементы вывести на
экран в виде матрицы.

Answer 1

Ответ:

Часть 1:

• begin
• var C := ReadMatrInteger(3,3);
• var sum := 0;
• for var i := 0 to 2 do sum+=C[i,i];
• Println('Сумма равна', sum);
• Println('Произведение равно', C[2,2]*sum);
• end.

Часть 2:

• begin
• var C := MatrRandom(3,3,-20,20);
• var sum := 0;
• for var i := 0 to 2 do sum+=C[i,i];
• C.Println;
• Println('Сумма равна', sum);
• Println('Произведение равно', C[2,2]*sum);
• end.

Примеры работ: