Question

Даны 2 массива A(N) и D(N), где n - заданное натуральное число. Объединить их в один C(N*2). Массив C распечатать.Надо делать в Паскале.

Answer 1

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50);
  Write('A: '); a.Println;
  var d:=ArrRandom(n,-50,50);
  Write('D: '); d.Println;
  var c:=a.Concat(d).ToArray;
  Write('C: '); c.Println;
end.

Тестовое решение:
n= 7
A: 2 -27 43 -43 -29 -9 33
D: -5 -34 49 -34 -32 -4 10
C: 2 -27 43 -43 -29 -9 33 -5 -34 49 -34 -32 -4 10

Answer 2

Для объединения двух массивов A(N) и D(N) в один массив C(N*2) в Паскале, мы можем использовать цикл for и индексацию элементов массивов.

Вот пример кода, который выполняет объединение двух массивов:

program mergeArrays;

const
  N = 5; // заданное натуральное число

var
  A, D, C: array[1..N] of integer;
  i, j: integer;

begin
  // Заполнение массивов A и D данными
  writeln('Введите элементы массива A:');
  for i := 1 to N do
  begin
    readln(A[i]);
  end;

writeln('Введите элементы массива D:');
  for i := 1 to N do
  begin
    readln(D[i]);
  end;

// Объединение массивов A и D в массив C
  for i := 1 to N do
  begin
    C[i] := A[i];
  end;

for i := 1 to N do
  begin
    C[N + i] := D[i];
  end;

// Вывод массива C
  writeln('Массив C:');
  for i := 1 to N * 2 do
  begin
    writeln(C[i]);
  end;

end.

В этом примере мы сначала заполняем массивы A и D данными, а затем с помощью цикла for объединяем их в массив C. Затем мы выводим массив C на экран.

Обратите внимание, что в данном примере мы предполагаем, что размеры массивов A и D равны N. Если размеры массивов отличаются, вам нужно будет изменить константу N и в циклах for изменить границы индексов.