Program pr20 (Input, Output);
Var
X, Y: Array [1..20] Of Real;
Z : Array [1..40] Of Real;
N : Integer;
i : Integer;
Begin
WriteLn ('PASCAL: Объединение двух одномерных массивов.');
Write ('Введите размерность массивов N: ');
ReadLn (N);
WriteLn ('Введите элементы первого массива:');
For i := 1 To N Do
Begin
Write ('X[',i,'] = ');
ReadLn (X[i]);
End;
WriteLn ('Введите элементы второго массива:');
For i := 1 To N Do
Begin
Write ('Y[', i, '] = ');
ReadLn (Y[i]);
End;
For i := 1 To N Do
Begin
Z [2 * i - 1] := X [i];
Z [2 * i] := Y [i]
End;
WriteLn ('Полученный массив:');
For i := 1 To 2 * N Do
Write (Z [i] : 8: 2);
ReadLn;
End.