Question

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

Answer 1

Часть 1:

beginvar 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:

beginvar 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.

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