Question

1. Заданы два массива А и В, содержащие по n элементов. Составьте формирование массива С, включая в него сначала все элементы массива А, а затем все элементы массива В. Программа на языке Паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50); Print('A:'); a.Println;
  var b:=ArrRandom(n,-50,50); Print('B:'); b.Println;
  var c:=a.Concat(b).ToArray; Print('C:'); c.Println;
end.

Пример
n= 10
A: -7 25 -44 -28 40 -19 46 -15 9 2
B: -13 37 -38 -16 -4 35 23 -19 7 -32
C: -7 25 -44 -28 40 -19 46 -15 9 2 -13 37 -38 -16 -4 35 23 -19 7 -32

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет описанную вами операцию:

pascalCopy code
program MergeArrays;
const
  n = 10; // Размер массивов

type
  TArray = array[1..n] of Integer;

var
  A, B, C: TArray;
  i: Integer;

procedure MergeArrays(var A, B, C: TArray);
var
  i: Integer;
begin
  // Заполнение массива C сначала элементами массива A
  for i := 1 to n do
    C[i] := A[i];
  
  // Заполнение массива C элементами массива B, начиная с позиции n + 1
  for i := 1 to n do
    C[n + i] := B[i];
end;

begin
  // Заполнение массивов A и B значениями (можно изменить по вашему желанию)
  for i := 1 to n do
  begin
    A[i] := i * 2;
    B[i] := i * 2 - 1;
  end;

  // Вызов процедуры слияния массивов
  MergeArrays(A, B, C);

  // Вывод массива C
  writeln('Merged Array C:');
  for i := 1 to 2 * n do
    write(C[i], ' ');

  writeln;
end.

Обратите внимание, что в данном примере предполагается, что размеры массивов A и B равны и равны переменной n. Вы можете изменить размеры массивов и их содержимое по своему усмотрению.