1:
var i, k, A, l: integer;
    b: array [1..30] of integer;
begin
     write('A = ');
     readln(a);
     for i := 1 to 30 do
     begin
          write('[', i, '] => ');
          readln(b[i]);
          if (b[i] < 0) then k := k + b[i]
             else if (A >= b[i]) then inc(l);
     end;
     writeln('- ', k, #13, '- ', l);
end.

2:
var i, x, y: integer;
    b: array [1..30] of integer;
begin
     for i := 1 to 30 do
     begin
          write('[', i, '] => ');
          readln(b[i]);
     end;
     for i := 1 to 29 do
         if (((b[i] >= 0) and (b[i + 1] < 0)) or ((b[i] < 0) and (b[i + 1] >= 0))) then
         begin
              x := i;
              y := i + 1;
         end;
     writeln(x, ' - ', y);
end.