Question

Разработать программу на языке программирования Pascal: а) В матрице с(8,5) поменять местами третий и пятый столбцы. помогите пожалуйста

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var c:=MatrRandom(8,5,-99,99); c.Println(4); Writeln(4*c.ColCount*'-');
  c.SwapCols(2,4);
  Writeln('*** Результат ***'); c.Println(4)
end.

Answer 2

Ответ в приложении:
vvvvvvvvvvvvvvvvvvv

Answer 3

Конечно, вот программа на языке Pascal, которая меняет местами третий и пятый столбцы в матрице с размерностью (8, 5):

pascalCopy code
program SwapColumns;

const
  Rows = 8;
  Cols = 5;

type
  Matrix = array[1..Rows, 1..Cols] of Integer;

var
  c: Matrix;
  i, j, temp: Integer;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  // Заполняем матрицу с какими-либо значениями (можно изменить на свои)
  for i := 1 to Rows do
    for j := 1 to Cols do
      c[i, j] := (i - 1) * Cols + j;

  // Выводим исходную матрицу
  writeln('Исходная матрица:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      write(c[i, j]:3);
    writeln;
  end;

  // Меняем местами третий и пятый столбцы
  for i := 1 to Rows do
  begin
    Swap(c[i, 3], c[i, 5]);
  end;

  // Выводим измененную матрицу
  writeln('Матрица после замены столбцов:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      write(c[i, j]:3);
    writeln;
  end;

  readln;
end.

Программа сначала заполняет матрицу c значениями от 1 до 40, затем меняет местами третий и пятый столбцы и выводит результат на экран.

Если вы хотите использовать свои значения для матрицы, просто измените часть кода, где заполняется матрица c по вашему усмотрению.