PascalABC
Объяснение:
program massiv;
var
matr: array[,] of integer;
m, n: integer;
begin
Write('Введите размер матрицы M x N через запятую: ');
ReadLn(m, n);
SetLength(matr, m, n);
for var i := 0 to m - 1 do
for var j := 0 to n - 1 do
matr[i, j] := i + j + 2;
Write(matr[i, j]:4);
end;
WriteLn;
end.
// PascalABC.NET
var (m, n) := ReadInteger2('Введи m и n:');
var a := MatrGen(m, n, (i, j) -> i + j + 2);
a.Println
PascalABC
Объяснение:
program massiv;
var
matr: array[,] of integer;
m, n: integer;
begin
Write('Введите размер матрицы M x N через запятую: ');
ReadLn(m, n);
SetLength(matr, m, n);
for var i := 0 to m - 1 do
begin
for var j := 0 to n - 1 do
begin
matr[i, j] := i + j + 2;
Write(matr[i, j]:4);
end;
WriteLn;
end;
end.
// PascalABC.NET
begin
var (m, n) := ReadInteger2('Введи m и n:');
var a := MatrGen(m, n, (i, j) -> i + j + 2);
a.Println
end.