Даныцелыеположительные числа М,N и набор из M чисел. Сформировать матрицу размера М×N, у...

Question

Даныцелыеположительные числа М,N и набор из M чисел. Сформировать матрицу размера М×N, у которой в каждом столбце содержатся все числа из исходного набора (в том же порядке)

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write('Задайте M, N: '); var (m,n):=ReadInteger2;
  var a:=ArrRandom(m,-50,50); a.Println;
  var b:=MatrGen(m,n,(i,j)->a[i]);
  Writeln('Сформированная матрица'); b.Println(4);
end.

Пример
Задайте M, N: 5 8
10 28 -12 40 -37
Сформированная матрица
  10  10  10  10  10  10  10  10
  28  28  28  28  28  28  28  28
 -12 -12 -12 -12 -12 -12 -12 -12
  40  40  40  40  40  40  40  40
 -37 -37 -37 -37 -37 -37 -37 -37