Обьединение массивов Опции

[kess]

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

[Артемий]

Попробуй так:

const
a: array [1..4] of Integer = (3,6,2,9);
b: array [1..7] of Integer = (23,34,56,78,12,33,27);
var
comp: array [1..11] of Integer;
k,i,l: Integer;
begin
readln(k);
l:=0;
for i:=1 to 11 do begin
 if not (k+1=i) and (k+1>i) then begin
  comp[i]:=a[i];
 end else begin
 if not (l=7) then begin
  Inc(l);
  comp[i]:=b[l];
 end else begin
  inc(k);
  comp[i]:=a[k];
 end;
end;
end;
 for i:= 1 to 11 do write(comp[i],' ');
 readln