Question

Написать цикл на паскале, который составляет матрицы(размеры- n рядков, m-столбцов) заполненные сверху вниз числами от 1 до n*m (пример): 1 4 7 2 5 8 3 6 9

Answer 1

Var n,m,i,j,k:integer;

begin
read(n,m);
for i:=1 to n do
 begin
 k:=i;
 writeln;
 for j:=1 to m do
   begin
   write(k,' ');
   k:=k+n;
   end;
 end;
end.

Answer 2

Вот пример кода на Pascal, который создает матрицу с заданными размерами и заполняет ее числами от 1 до n*m:

program MatrixFill;

var
  n, m, i, j, num: integer;
  matrix: array of array of integer;

begin
  // Ввод размеров матрицы
  writeln('Введите количество строк (n): ');
  readln(n);
  writeln('Введите количество столбцов (m): ');
  readln(m);
  
  // Инициализация матрицы
  SetLength(matrix, n, m);
  
  // Заполнение матрицы числами
  num := 1;
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      matrix[i, j] := num;
      num := num + 1;
    end;
  end;
  
  // Вывод матрицы
  writeln('Матрица:');
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      write(matrix[i, j], ' ');
    end;
    writeln;
  end;
  
end.

При выполнении программы пользователю будет предложено ввести количество строк (n) и количество столбцов (m) матрицы. Затем программа создает матрицу с заданными размерами и заполняет ее числами от 1 до n*m. В конце программа выводит полученную матрицу на экран.

Например, если пользователь введет n=3 и m=3, программа выведет следующую матрицу:

1 4 7

2 5 8

3 6 9