Question

Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет повторяющихся чисел, нет их и среди b1,..., bn. Построить объединение данных последовательностей

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Введите 25 не повторяющихся чисел:'+NewLine,25);
  var b:=ReadArrInteger('Введите '+n+' не повторяющихся чисел:'+NewLine,n);
  Writeln('Объединенная последовательность:'); (a+b).Println
end.

Пример:
n= 8
Введите 25 не повторяющихся чисел:
 -35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48
Введите 8 не повторяющихся чисел:
 -14 0 37 5 11 -29 36 -19
Объединенная последовательность:
-35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48 -14 0 37 5 11 -29 36 -19