Question

Написать программу, которая вводит массив из 6 столбцов и 4 строк, в котором значение каждого элемента соответствует номеру столбца. Также нужно вывести на экран полученный массив, числа в строке должны быть разделены запятой с пробелом, а в конце строки никаких знаков быть не должно. (паскаль)

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

const row = 4;

const col = 6;

procedure MatrixPrintln<T>(Matrix: Array[,] of T; LineSep: string);

begin

 foreach var mRow in Matrix.Rows do begin

   string.Join(LineSep, mRow).Println;

 end;

end;

begin

 var Matrix := new integer[row,col];

 for var i := 0 to row-1 do begin

   for var k := 0 to col-1 do begin

     Matrix[i,k] := k+1;

   end;

 end;

 matrixPrintln(Matrix, ', ');

end.

Answer 2

PascalABC.NET

Ответ:

• begin
• foreach var r in MatrGen(4,6,(i,j)->j+1).Rows do r.Println(', ');
• end.

Пример работы: