Question

Дан целочисленный двумерный массив, размерности n х m, при n=3; m=3. Сформировать новый массив, состоящий из противоположных соответствующих элементов, то есть значение элемента А(n;m) заменить на значение элемента А (m;n). (pascal)

Answer 1

Ответ:

const n=3; m=3;

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

i,j:integer;

begin

writeln('Исходный массив');

for i:=1 to n do

begin

for j:=1 to m do

begin

im[i,j]:=random(10);

write(im[i,j]:2)

end;

writeln

end;

writeln('Новый массив');

for i:=1 to n do

begin

for j:=1 to m do

begin

nm[i,j]:=im[j,i];

write(nm[i,j]:2)

end;

writeln

end

end.

Answer 2

Для выполнения данной задачи в Pascal нужно создать два двумерных массива: исходный массив A и новый массив B, затем пройтись по элементам массива A и заменить значения в массиве B на соответствующие противоположные элементы из массива A. Вот пример кода:

pascalCopy code
program SwapArrayElements;
var
  A, B: array[1..3, 1..3] of integer; // Определяем два 3x3 массива
  i, j: integer;
begin
  // Заполняем массив A
  for i := 1 to 3 do
    for j := 1 to 3 do
      A[i, j] := i * j; // Можно заменить на вашу инициализацию

  // Формируем новый массив B с противоположными элементами
  for i := 1 to 3 do
    for j := 1 to 3 do
      B[j, i] := -A[i, j]; // Здесь происходит обмен элементов

  // Выводим массив B
  writeln('Массив B:');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(B[i, j]:4);
    writeln;
  end;

  readln;
end.

В этом примере создаются два массива A и B, и элементы массива B заполняются противоположными значениями из массива A. В исходном массиве A элемент на позиции (n, m) заменяется на элемент на позиции (m, n) в новом массиве B.