===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
end.