alexfedor932 Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
  for i:=1 to n do c[i]:=random(-10,10);
  for i:=n downto 1 do begin
    write(c[i],' ');
    if c[i] < 0 then begin
      writeln(i);
      break;
    end;
  end;
end.