===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, 10, 99);
a.Println(3);
Writeln;
for var i := 0 to n - 1 do
Swap(a[i, i], a[i, n - i - 1]);
a.Println(3)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := MatrRandom(n, n, 10, 99);
a.Println(3);
Writeln;
for var i := 0 to n - 1 do
Swap(a[i, i], a[i, n - i - 1]);
a.Println(3)
end.