Заданы два одномерных массива действительных чисел разных размеров. Объединить их в
Заданы два одномерных массива реальных чисел разных размеров. Соединить их в один массив, включив 2-ой массив меж k-м и (k+1)-м элементами первого
Задать свой вопрос1 ответ
Васька Леотенков
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var m:=ReadInteger('Количество частей в массиве А (m):');
var n:=ReadInteger('Количество частей в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1lt;klt;m):');
if (kgt;1) and (klt;m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Итог вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1lt;klt;m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество частей в массиве B (n): 6
Позиция вставки k (1lt;klt;m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Итог вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
begin
var m:=ReadInteger('Количество частей в массиве А (m):');
var n:=ReadInteger('Количество частей в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1lt;klt;m):');
if (kgt;1) and (klt;m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Итог вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1lt;klt;m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество частей в массиве B (n): 6
Позиция вставки k (1lt;klt;m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Итог вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
Егор Шарапан
крута
Фингерман
Артемий
придется ради такового варианта даже обновить версию
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов