написал для нахождения общего кол-ва отрицательных элементов, не работает, что не так?
как сделать чтобы находил не сумму всех, а только тех которые идут один за другим.
вот код:
Код
Program zamorozki;
Type day = 1..10000;
var n: day;
    d: array [-10000..10000] of integer;
    x,i: integer;
    f,f1: text;
begin
     assign(f,'cool.in'); reset(f);
     assign(f1,'cool.out'); rewrite(f1);
     read(f,n);
     for i:=1 to n do
     begin
     readln(f,d[i]);
     end;
     x:=0;
     for i:=1 to n do
     if d[i]<=0 then x:=x+1;
     writeln(f1,x);
     close(f);
     close(f1);
end.