Подскажите,плиз, как вставить один массив в другой

[Paige Hollivel]

скажите, плиз, а как более правильно вставить один массив в другой?
Например массив a(n) в b(n) между t и t+1?

[puporev]

А делается это так:

uses crt;
var a,b:array[1..100]of integer;
    n,i,j,t,m:integer;
begin
clrscr;
write('Vvedite razmernost massivov n=');
readln(n);
randomize;
writeln('Massiv A:');
for i:=1 to n do
  begin
   a[i]:=random(10);
   write(a[i],' ');
  end;
writeln;
writeln('Massiv B:');
for i:=1 to n do
  begin
   b[i]:=random(10)+10;
   write(b[i],' ');
  end;
writeln;
write('Vvedite 1<t<n t=');readln(t);
i:=1;m:=n;{т.к. n будет увеличиваться, запомним ее в m-количество вставок}
while i<=m do
   begin
     for j:=n downto t+1 do{сдвигаем от t все элементы на один вправо}
     a[j+1]:=a[j];
     a[t+1]:=b[m-i+1];{вставляем на свободное место последний элемент массива В}
     n:=n+1; {увеличиваем размер массива А}
     i:=i+1; {переходим к следующему (предпоследнему) элементу массива В)}
   end;       {повторяем это m раз}
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.

[Paige Hollivel]

Спасибо большое)))

[Stilet]

puporev

А я бы так сделал:

var i:integer; a,b:array[1..250] of char;
begin
 for i:=0 to 20 do a[i]:=chr(ord('a')+i);
 for i:=0 to 5 do b[i]:=chr(ord('1')+i);
 move(a[4],a[4+3],3);
 move(b[1],a[4],3);
end;

Здесь в четветрую позицию вставляются три элемента другого массива.
Короче код

puporev

А я бы так сделал:

var i:integer; a,b:array[1..250] of char;
begin
 for i:=0 to 20 do a[i]:=chr(ord('a')+i);
 for i:=0 to 5 do b[i]:=chr(ord('1')+i);
 move(a[4],a[4+3],3);
 move(b[1],a[4],3);
end;

Здесь в четветрую позицию вставляются три элемента другого массива.
Короче код и шустее