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

Предыдущий
вопрос Следующий
вопрос

Пример кода на Паскале:

program MergeArrays;
const
N = 5;
var
A, D, C: array[1..N] of Integer;
i, j: Integer;
begin
// заполнение массивов A и D
for i := 1 to N do
begin
A[i] := Random(10); // случайное число от 0 до 9
D[i] := Random(10);
end;
// объединение массивов A и D в C
j := 1;
for i := 1 to N do
begin
C[j] := A[i];
C[j + 1] := D[i];
j := j + 2;
end;
// печать массива C
for i := 1 to N * 2 do
begin
Write(C[i], ' ');
end;
end.

В данном коде создаются массивы A, D и C размером N, заполняются случайными числами от 0 до 9, затем массивы A и D объединяются в массив C. Результат (массив C) выводится на экран.