Question

Дан массив из чесел, массив 3х3 (двумерный).
Найти сумму элементов главной диагонали.
Исходный массив вывести на экран . Паскаль
( подробно если можно)

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := MatrRandom(3, 3, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var s := 0;

 for var i := 0 to 2 do s += a[i, i];

 Println('Сумма элементов главной диагнонали:', s)

end.

 16  19  97

 11 -97  14

 24  40 -38

------------

Сумма элементов главной диагнонали: -119