var a:array[1..100] of integer;
i,b,k,c:integer;
begin
writeln('введите кол-во чисел');readln(b);
writeln('введите число, которое нужно вставить');readln(c);
for i:=1 to b do begin a[i]:=random(21)-10; write(a[i]:4);end;
for i:=1 to b do
if a[i]<0 then  inc(k);
for i:=b+k downto 1 do
if a[i]<0 then a[i-1]:=c;
writeln;
for i:=1 to b do write(a[i]:4);
end.