Матрица размерностью m, n заполняется рандомными числами. Вывести нечетные столбцы.

Question

Матрица размерностью m, n заполняется рандомными числами. Вывести нечетные столбцы.

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Begin                    
  var m:=ReadInteger();
  var n:=readInteger();
  var a:=MatrixRandom(m,n);
  println(a);
  //вывод нечетных столбцов
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do
      if j mod 2=0 then print(a[i,j]);
    println;
  end;
          
End.