
Andromakelv
5 год назад
Даны натуральное число n, целые числа a1,..., a25, b1,..., bn. Среди a1,..., a25 нет повторяющихся чисел, нет их и среди b1,..., bn. Построить объединение данных последовательностей
ОТВЕТЫ

Тимур
Oct 24, 2020
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
938
Смежные вопросы: