Question

Двумерные массивы PascalABC - Нужна помощь 1. Найти и распечатать элементы массива С(n,m), если они представляют собой сумму элементов массива А(n,m) и В(n, m), т.е. C(I,J)=A(I,J)+B(I,J). 2. Заменить второй столбец на вторую строку в массиве А(n,m). Оба масси-ва распечатать

Answer 1

Ответ:

Объяснение:

PascalABC.NET. Версия 3.5.1, сборка 2261 (4.11.2019)

Задание 1

program abc;

const n=2; // Задание начальных параметров массива через константы

const m=2;

var C:array[1..n,1..m] of integer;

A:array[1..n,1..m] of integer;

B:array[1..n,1..m] of integer;

i,j:integer;

begin

 for i:=1 to n do

   for j:=1 to m do

    begin

     readln(A[i,j]); // Ввод данных и вычисление по формуле

     readln(B[i,j]);

     C[i,j]:=A[i,j]+B[i,j];

    end;

  writeln('C[n,m] = ');

  for i:=1 to n do

   begin

    for j:=1 to m do

     write(C[i,j],' '); // Вывод массива

    writeln;

   end;

end.

Задание 2

program abc;

const n=3; // Задание начальных параметров массива через константы

const m=3;

var A:array[1..n,1..m] of integer;

i,j:integer;

begin

 for i:=1 to n do

   for j:=1 to m do  // Ввод данных массива

     readln(A[i,j]);  

     

 writeln('Оригинальный массив A(n,m):');

 

 for i:=1 to n do  // Вывод оригинального массива

   begin

    for j:=1 to m do

      write(A[i,j],' ');

    writeln;

   end;

  for i:=1 to n do // Замена 2-ого столбца 2-ой строкой

   A[i,2]:=A[2,i];

   

   writeln('Изменённый массив A(n,m):');

     

   for i:=1 to n do // Вывод изменённого массива

   begin

    for j:=1 to m do

      write(A[i,j],' ');

    writeln;

   end;

end.

Answer 2

Конечно, я помогу вам с этим. Для выполнения данных задач, вам потребуется использовать двумерные массивы в PascalABC. Вот как это можно сделать:

1. Найти и распечатать элементы массива C(n,m), если они представляют собой сумму элементов массивов A(n,m) и B(n, m):

pascalCopy code
program SumArrays;

const
  n = 3; // количество строк
  m = 3; // количество столбцов

var
  A, B, C: array[1..n, 1..m] of Integer;
  i, j: Integer;

begin
  // Заполнение массивов A и B (пропущено для простоты)
  
  // Вычисление массива C
  for i := 1 to n do
    for j := 1 to m do
      C[i, j] := A[i, j] + B[i, j];
  
  // Вывод массива C
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(C[i, j]:4);
    Writeln;
  end;
end.

2. Заменить второй столбец на вторую строку в массиве A(n,m):

pascalCopy code
program ReplaceColumnWithRow;

const
  n = 3; // количество строк
  m = 3; // количество столбцов

var
  A: array[1..n, 1..m] of Integer;
  i, temp: Integer;

begin
  // Заполнение массива A (пропущено для простоты)
  
  // Вывод массива A до замены
  Writeln('Массив A до замены:');
  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 do
  begin
    temp := A[i, 2];
    A[i, 2] := A[2, i];
    A[2, i] := temp;
  end;
  
  // Вывод массива A после замены
  Writeln('Массив A после замены:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(A[i, j]:4);
    Writeln;
  end;
end.

Обратите внимание, что в обоих примерах я использовал предположение о размере массивов (3x3). Вам нужно будет заменить эти значения на нужные вам размеры. Также, я не предоставил код для заполнения массивов A и B, так как это зависит от ваших данных.