uses newdelay,crt;
const n=10;
var seged,db,i,e,u:byte;
    x:array[1..n] of byte;

begin
  randomize;
  for i:=1 to n do
    x[i]:=random(20)-10;
  e:=1;
  u:=n;
  seged:=x[e];
  while e<u do
  begin
    while (e<u) and (x[u]<0) do
      dec(u);
    if e<u then
    begin
      x[e]:=x[u];
      inc(e);
      while (e<u) and (x[e]>0) do
        inc(e);
      if e<u then
      begin
        x[u]:=x[e];
        dec(u);
      end;
    end;
  end;
  x[e]:=seged;
  if x[e]>0 then db:=e else db:=e-1;
end.