ПАСКАЛЬ.Заданы два одномерных массива.Объединить их в один массив, включив второй массив между K-ым и (K+1)-м элементами первого.

[dmitriy20104]

Решите, пожалуйста, задачку.
Заданы два одномерных массива: массив А размера M и массив В размера N. Объединить их в один массив, включив второй массив между K-ым и (K+1)-м элементами первого (К-задано).

[Mandrivnyk]

Ну, решил...
Ничего сложного нет.

[dmitriy20104]

Попрошу написать код или хотя бы часть.

[Mandrivnyk]

Нет уж, увольте...
Алгоритмом поделюсь, раз для вас это настолько сложно...

три массива -- два заданных, размерностями M и N соответственно, и результирующий размерности M+N.
В цикле от 1 до введенного K переписываете в результирующий массив элементы из первого массива, затем в цикле от K+1 до K+N -- элементы второго массива, потом в цикле от K+N+1 до N+M -- остаток первого массива. Маленькая подсказка: помимо переменной-индекса цикла вам понадобится еще одна переменная-индекс для результирующего массива.
Да, было бы еще неплохо сделать проверку, не превышает ли введенное число K размерность первого массива.

[NoxUS_1067]

Всё действительно легко
На входе 2 массива - на выходе 1, и того 3 массива. Берёшь 1 массив и начинаешь заполнять им результирующий массив (3) пока не выполниться условие (достижение К-ого элемента). Затем пихаешь массив 2 и когда тот закончится продолжаешь заполнять 3 массив первым.

[Stilet]

Объединить их в один массив, включив второй массив между K-ым и (K+1)-м элементами первого (К-задано).

Примерно так:

var c:array[1..m+n] of тип;
 i:integer
...
 for i:=1 to k do c[i]:=a[i];
 for i:=1 to n do c[i+k]:=b[i];
 for i:=k to m do c[i+n]:=a[i];
...

Не проверял, но думаю отсюда можно отталкиваться.

[Mandrivnyk]

Не проверял, но думаю отсюда можно отталкиваться.

Последний цикл не от k, а от k+1.

[Stilet]

Говорю же - не проверял )