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