Question

С клавиатуры вводится матрица целых чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Переписать строки с нечетными номерами в обратном порядке. Вывести результаты. решить кумир/паскаль

Answer 1

Var 
a:array[1..10,1..20] of integer;
n,m,k,i,j:integer;
begin
write('n = '); readln(n);
write('m = '); readln(m);
for i:=1 to n do
 for j:=1 to m do
  begin
   write('a[',i,',',j,'] = ');
   readln(a[i,j]);
  end;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4,' ');
 writeln;
 end;
for i:=1 to (n+1) div 2 do
 for j:=1 to m div 2 do
  begin k:=a[2*i-1,j]; a[2*i-1,j]:=a[2*i-1,m-j+1]; a[2*i-1,m-j+1]:=k; end;
writeln('Измененный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4,' ');
 writeln;
 end;
end.

Пример:
n = 3
m = 4
a[1,1] = 2
a[1,2] = -4
a[1,3] = 0
a[1,4] = 7
a[2,1] = 6
a[2,2] = 9
a[2,3] = -4
a[2,4] = -9
a[3,1] = -4
a[3,2] = 0
a[3,3] = -7
a[3,4] = 0
Исходный массив:
   2   -4    0    7 
   6    9   -4   -9 
  -4    0   -7    0 
Измененный массив:
   7    0   -4    2 
   6    9   -4   -9 
   0   -7    0   -4 

Answer 2

Для решения данной задачи, вам потребуется переписать строки с нечетными номерами в обратном порядке. Вот пример решения на языке Паскаль:

program ReverseMatrixRows;
const
  N = 10; // количество строк
  M = 20; // количество столбцов
var
  matrix: array[1..N, 1..M] of Integer;
  i, j: Integer;
begin
  // Ввод матрицы с клавиатуры
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write('Введите элемент [', i, ',', j, ']: ');
      ReadLn(matrix[i, j]);
    end;
  end;

// Переписываем строки с нечетными номерами в обратном порядке
  for i := 1 to N do
  begin
    if i mod 2 <> 0 then
    begin
      for j := 1 to M div 2 do
      begin
        // Обмен значениями элементов
        matrix[i, j] := matrix[i, j] + matrix[i, M - j + 1];
        matrix[i, M - j + 1] := matrix[i, j] - matrix[i, M - j + 1];
        matrix[i, j] := matrix[i, j] - matrix[i, M - j + 1];
      end;
    end;
  end;

// Вывод результата
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write(matrix[i, j], ' ');
    end;
    WriteLn;
  end;
end.

В данном примере мы сначала вводим матрицу с клавиатуры, затем переписываем строки с нечетными номерами в обратном порядке, а затем выводим результат. Обратите внимание, что в данном примере используется язык программирования Паскаль.

Примечание: При решении данной задачи на других языках программирования, код может отличаться.