program xxx;
uses crt;
const n=6;
var a:array[1..n] of integer;
      i:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
  begin
    a[i]:=random(50)-10;
    write(a[i]:4);
  end;
writeln;
i:=n;
while (i>=2) and (a[i]*a[i-1] >=0) do dec(i);
  if i<2 then writeln('нет')
  else writeln('позиция', i, ' i ', i-1);
readln;
END.