Question

Помогите пожалуйста! (Pascal) Даны массивы X(x1,x2,...,x10) и Y(y1,y2,...,y10). На место массива Х записать массив Y, а на место массива Y – массив Х.

Answer 1

Ответ:

var i,tmp: integer;

var X,Y: array [1..20] of integer;

begin

// Заполним массивы и выводим их на экран

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

writeln('X':5,'Y':5);

randomize;

For i:= 1 to 20 do

begin

X[i]:=random(201)-100;

Y[i]:=random(201)-100;

writeln(X[i]:5,Y[i]:5);

end;

// Меняем местами

For i:= 1 to 20 do

begin

tmp := X[i];

X[i] := Y[i];

Y[i] := tmp;

end;

// Выводим на экран результат

writeln('Результат:');

writeln('X':5,'Y':5);

For i:= 1 to 20 do

begin

writeln(X[i]:5,Y[i]:5);

end;

end.

Answer 2

Конечно, вот пример кода на Pascal, который выполняет перестановку массивов X и Y:

pascalCopy code
program SwapArrays;

var
  X, Y: array[1..10] of Integer;
  i, temp: Integer;

begin
  // Заполнение массивов X и Y (это просто пример, вы можете заполнить их как вам нужно)
  for i := 1 to 10 do
  begin
    X[i] := i;
    Y[i] := i * 10;
  end;

  // Вывод исходных массивов X и Y
  writeln('Исходный массив X:');
  for i := 1 to 10 do
    write(X[i], ' ');
  writeln;

  writeln('Исходный массив Y:');
  for i := 1 to 10 do
    write(Y[i], ' ');
  writeln;

  // Обмен массивов X и Y
  for i := 1 to 10 do
  begin
    temp := X[i];
    X[i] := Y[i];
    Y[i] := temp;
  end;

  // Вывод массивов X и Y после обмена
  writeln('Массив X после обмена:');
  for i := 1 to 10 do
    write(X[i], ' ');
  writeln;

  writeln('Массив Y после обмена:');
  for i := 1 to 10 do
    write(Y[i], ' ');
  writeln;

end.

Обратите внимание, что в данном примере используется простое заполнение массивов значениями от 1 до 10 и от 10 до 100 для массивов X и Y соответственно. Вы можете изменить это заполнение под свои требования.