Листинг программы
program z37;
{Слить массивы А и В по 100 элементов в массив С
из 200 элементов так, чтобы элементы массива А
имели в С нечётные номера }
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]:=1;{random(d);}
b[i]:=2;{random(d);}
end;
for i:=1 to 200 do
if i mod 2=0 then begin inc(bb);c[i]:=b[bb]; end
else begin inc(aa);c[i]:=a[aa]; end;
for i:=1 to 200 do write(c[i],' ');
readln;
end.