Question

СРОЧНО! Дана матрица размера M × N. Вывести ее элементы, расположенные в столбцах с четными номерами (2, 4, …) На языке Pascal

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Введите m и n:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println;

 Writeln;

 foreach var j in Range(1, n - 1, 2) do

   a.Col(j).Println

end.

Answer 2

Конечно! Вот пример кода на языке Pascal, который выводит элементы матрицы, расположенные в столбцах с четными номерами:

pascalCopy code
program PrintMatrixColumns;

const
  M = 3; // Количество строк
  N = 4; // Количество столбцов

var
  matrix: array[1..M, 1..N] of Integer;
  i, j: Integer;

begin
  // Заполнение матрицы для примера
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      matrix[i, j] := (i-1) * N + j;
    end;
  end;

  // Вывод элементов в столбцах с четными номерами
  for i := 1 to M do
  begin
    for j := 2 to N step 2 do
    begin
      writeln(matrix[i, j]);
    end;
  end;
end.

В этом примере создается матрица размером M × N и заполняется значениями для иллюстрации. Затем происходит вывод элементов, расположенных в столбцах с четными номерами, путем перебора строк и столбцов и вывода соответствующих элементов.