Объяснение:
program TwoDimensionalArray;
var
rows, cols, i, j: integer;
arr: array [1..9999, 1..9999] of integer;
begin
writeln('Введите кол-во строк:'); readln(rows);
writeln('Введите кол-во столбцов:'); readln(cols);
writeln('Вводите элементы матрицы: ');
for i := 1 to rows do
for j := 1 to cols do
readln(arr[i, j]);
for i := 1 to rows do begin
for j := 1 to cols do
write(arr[i, j], ' ');
writeln
end;
end.
