program mn;<br/>
uses crt;<br/>
var a:array[1..100]of integer;<br/>
    i,n,no,q,min,j:integer;<br/>
BEGIN<br/>
ClrScr;<br/>
Write('N:');<br/>
readln(n);<br/>
randomize;<br/>
for i:=1 to n do<br/>
begin<br/>
a[i]:=random(30);<br/>
Write(a[i],' ');<br/>
end;<br/>
writeln;<br/>
Write('q:');<br/>
readln(q);<br/>
i:=1;<br/>
While i<n do<br/>
begin<br/>
if (a[i]>0)and(a[i+1]>0)or(a[i]<0)and(a[i]<0)<br/>
then begin<br/>
for j:=n+1 downto i+1 do<br/>
a[j]:=a[j-1];<br/>
a[i+1]:=q;i:=i+1;inc(n);<br/>
     end;<br/>
inc(i);<br/>
     end;<br/>
for i:=1 to n do<br/>
Write(a[i],' ');<br/>
readln;<br/>
END.<br/>