Листинг программы

program z38;

{Слить массивы А и В по 100 элементов в массив С

    из 200 элементов так, чтобы элементы массива А

    имели номера от 51 до 150 }

uses crt;

var i,j,k,aa,bb,d:longint;

    a:array[1..100]of longint;

    b:array[1..100]of longint;

    c:array[1..200]of longint;

begin

 clrscr;textcolor(11);

  {write('диапазон: ');readln(d);}

 for i:=1 to 100 do

   begin

    a[i]:=0;{random(d);}

    b[i]:=1;{random(d);}

   end;

  for i:=1 to 50 do c[i]:=b[i];bb:=49;

  for i:=51 to 150 do begin inc(aa);c[i]:=a[aa]; end;

  for i:=151 to 200 do begin inc(bb);c[i]:=b[bb];end;

  for i:=1 to 200 do write(c[i],' ');

 readln;

end.