// 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.
// Внимание! Если программа не работает, обновите версию!
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