Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет...

Question

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

Comments

Я с Pascal вообще не знаком... вот что тут особого, вот и прошу помощи

---

Извиняюсь за невнимательность. Вы сможете помочь?

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

Comments

Такое вот задание) Спасибо большое)