uses crt;
var i,n,dem:longint; a:array[0..1000000]of longint;
begin
   readln(n);
   dem:=0;
   for i:=1 to n do
   begin
   read(a[i]);
   if a[i]<0 then dem:=dem+1;
   end;
   writeln(dem);
   for i:=1 to n do
      begin
      if a[i]<0 then write(i,' ');
      end;
   readln;
   readln
end.

uses crt;
var n,i,count: longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] < 0) then inc(count);
        end;
    writeln('Co ',count,' so am');
    readln;
    if(count <= 0) then
        begin
           readln;
           exit; 
        end
    else
        begin
            write('Vi tri cac so am: ');
            for i:=1 to n do
                if(a[i] < 0) then write(i,' ');
            readln;
            exit;
        end;
readln; readln;
end.