===== PascalABC.NET =====
begin
var n := 5;
var m := MatrRandom(n, n, -15, 25);
m.Print(4);
Writeln;
for var i := 0 to n -1 do
Write(m[i, i]:4)
end.
===== PascalABC.NET =====
begin
var n := 5;
var m := MatrRandom(n, n, -15, 25);
m.Print(4);
Writeln;
for var i := 0 to n -1 do
Write(m[i, i]:4)
end.