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

program z36;

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

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

     меньше среднего значения по всему массиву С  }

uses crt;

var i,j,aa,bb,d,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]:=3;{random(d);}

   end;

  for i:=1 to 100 do sr:=sr+a[i]+b[i];sr:=sr/200;

  while j<100 do

   begin

    inc(j);

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

    if b[j]<sr then begin inc(s);c[s]:=b[j]; end;

   end;j:=0;

  while j<100 do

   begin

    inc(j);

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

    if b[j]>=sr then begin inc(s);c[s]:=b[j]; end;

   end;

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

 readln;

end.