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

Const

m = 8;

n = 7;

var

a: array[1 ... m, 1 ... n] of integer;

i, j: integer;

begin

writeln ('Введите через пробел ', m, ' чисел') ;

for i : = 1 to m do

begin

Read (a[i, 1]) ;

for j : = 2 to n do a[i, j] : = a[i, 1]

end;

Writeln ('Сформированный массив') ;

for i : = 1 to m do

begin

for j : = 1 to n do Write (a[i, j]:5) ;

Writeln

end

end.

Тестовое решение:

Введите через пробел 8 чисел

4 - 6 10 93 345 - 32 0 11

Сформированный массив

4 4 4 4 4 4 4

-6 - 6 - 6 - 6 - 6 - 6 - 6

10 10 10 10 10 10 10

93 93 93 93 93 93 93

345 345 345 345 345 345 345

-32 - 32 - 32 - 32 - 32 - 32 - 32

0 0 0 0 0 0 0

11 11 11 11 11 11 11