Question

ПОЖАЛУЙСТА , ПОМОГИТЕ , ДВУМЕРНЫЕ МАССИВЫ НА ПАСКАЛЕ 50 БАЛЛОВ Matrix8. Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Вывести элементы K-го столбца данной матрицы.

Answer 1

Ответ:

Program zadanie;

const M=9; N=16;

var i,j,K:integer;

a:array[1..M,1..N] of integer;

begin

for i:=1 to M do begin

 for j:=1 to N do begin

   a[i,j]:=random(9)+1;

   write(a[i,j]:3);

   end;

 writeln();

 end;

readln(K);

writeln('Элементы ',K,'-ого столбца: ');

for i:=1 to M do begin

 writeln(a[i,K]);

 end;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет указанную задачу:

pascalCopy code
program Matrix8;
const
  MaxM = 100; // Максимальное количество строк матрицы
  MaxN = 100; // Максимальное количество столбцов матрицы

var
  Matrix: array[1..MaxM, 1..MaxN] of Integer; // Объявление матрицы
  M, N, K, i, j: Integer; // Переменные для работы с матрицей

begin
  // Ввод размеров матрицы
  writeln('Введите количество строк матрицы (M): ');
  readln(M);
  writeln('Введите количество столбцов матрицы (N): ');
  readln(N);

  // Ввод элементов матрицы
  writeln('Введите элементы матрицы:');
  for i := 1 to M do
    for j := 1 to N do
    begin
      write('Элемент (', i, ',', j, '): ');
      readln(Matrix[i, j]);
    end;

  // Ввод номера столбца, который нужно вывести
  writeln('Введите номер столбца (K) для вывода элементов:');
  readln(K);

  // Проверка корректности введенного номера столбца
  if (K < 1) or (K > N) then
    writeln('Некорректный номер столбца.')
  else
  begin
    // Вывод элементов K-го столбца
    writeln('Элементы ', K, '-го столбца матрицы:');
    for i := 1 to M do
      writeln(Matrix[i, K]);
  end;

end.

В этой программе сначала пользователь вводит количество строк (M) и столбцов (N) матрицы, затем вводит элементы матрицы. После этого пользователь вводит номер столбца (K), элементы которого нужно вывести. Программа проверяет корректность введенного номера столбца и выводит элементы K-го столбца, если номер корректен.