Максимальное кол-во подряд идущих элементов одн. массива

[cheef]

Нужно посчитать максимальное кол-во подряд идущих отрицательных элементов одномерного массива.

program dsa;
uses crt;
const
n=7;
a:array[1..n] of integer = (2,-3,-4,-5,6,-7,5);
var b,c,d,i:integer;
begin
clrscr;
for i:=1 to n do
begin
if a[i]<0 then b:=b+1;
end;
writeln(b);
readln;
end.

Получается найти только общее кол-во отрицательных или просто первые подряд идущие, а потом прерывание. Подкиньте мысль пожалуйста или пример.

[_-Re@l-_]

Вот так:

b:=0;t:=0;
for i:=1 to n do
begin
      if a[i]<0 then b:=b+1
      else begin t:=b;b:=0;end;
end;
write(t);

[cheef]

a:array[1..n] of integer = (2,-3,-4,-5,6,-7,5);
Массив то вот такой. Как вы написали он сначала считает до 3 (2,-3,-4,-5,6,-7,5); потом сбрасывает это и (2,-3,-4,-5,6,-7,5); один элемент считает. Мне ещё их нужно сравнить и где больше подряд идущих те вывести.

[Serge_Bliznykov]

заводим счётчик максимальной длины последовательности (+сохраняем индекс начала последовательности), + счётчик, сколько встретили подряд.
до тех пор, пока текущий элемент отрицательный, увеличиваем текущий счётчик. Если встретился положительный (или достигнут конец массива) проверяем, этот текущий счётчик больше максимального? Если да - то сохраняем данные текущего счётчика (и индекс начала последовательности) в качестве максимального.

p.s. будут сложности, напишу пример...

[cheef]

У меня проблемы возникают с этим моментом:
Если положительный элемент, то кинуть в переменную число предыдущих отрицательных. Там же цикл и, если в переменную это добавить, то при следующем обороте цикла, если такая ситуация будет, то значение этой переменной просто напросто заменится новым значением. А мне ещё их нужно сравнить и не известно сколько будет там таких отрицательных отрезков.

[Serge_Bliznykov]

прошу.

program dsa;
uses crt;
const
  n=10;
  a:array[1..n] of integer = (2,-3,-4,-5,6,-7,-5,-1,-3,-2);
var
  i, MaxLen, Imax, CurLen : integer; 
begin
  clrscr;
  {выведем весь массив на экран}
  for i:=1 to n do Write(a[i]:1,' ');
  WriteLn;

  MaxLen := 0;  
  iMax := -1;

  CurLen := 0;
  i := 1;
  while i<=n do begin
    if a[i]<0 then Inc(CurLen)
    else begin
      if CurLen>MaxLen then begin
        MaxLen := CurLen;
        iMax := i-CurLen;
      end;
      CurLen := 0
    end;
    inc(i);
  end;

  {дополнительная проверка, если массив
     закончился максимальной по длине отрицательной серией}
  if CurLen>MaxLen then begin
        MaxLen := CurLen;
        iMax := i-CurLen;
  end;

  {вывод результатов}
  if iMax<0 then WriteLn('Нет никаких последовательностей!')
  else 
    WriteLn('Максимальная длина последовательности = ',MaxLen:1,
            ' начинается с ',iMax:1);

  readln;
end.

[cheef]

Спасибо