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

program z39;

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

     элементов так, чтобы элементы А и В чередовались по 10 штук}

uses crt;

var i,j,aa,bb,d,jj,s:longint;

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

    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]:=1;{random(d);}

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

   end;

    bb:=1;

  for i:=1 to 200 do

   begin

    if aa=10 then begin aa:=0;inc(bb);

     if bb mod 2=0 then s:=1 else s:=0;end;

    if s=0 then begin inc(j);c[i]:=a[j]; end;

    if s=1 then begin inc(jj);c[i]:=b[jj]; end;

    inc(aa);

   end;

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

 readln;

end.