найти сумму элементов одномерного массива

[мария 12]

помогите плиз... найти сумму элементов одномерного массива расположенных между 1 и 2 отрицательными элементами за1 проход по массиву.. с циклом while

[Asinkrit]

const
  CArrayLength = 50;

var
  vArray: array of Integer;
  i,s:integer;
  isFirst, isSecond:boolean; 

begin
  Randomize;
  SetLength(vArray, CArrayLength); 
  for i:=0 to CArrayLength-1 do 
    begin
    vArray[i] := Random(100)-50; 
    write(vArray[i],' '); 
    end;
  Writeln;

  i:=0;
  s:=0;
  isFirst:=false;
  isSecond:=false;

  while (i < CArrayLength) and (not isSecond) do
    begin
    if (not isFirst) then isFirst:=(vArray[i] < 0)
      else
        if (not isSecond) then 
          if (vArray[i] < 0) then isSecond:=true
            else s := s + vArray[i];
    Inc(i);
    end;

  SetLength(vArray,0);
  Writeln('Sum is ',s);
  Readln;
end.

[мария 12]

спасибо огромное а ка можно так сделать чтобы выводил еще и такие варианты отвктов как
1 отрицательный
нет отрицательных
элементы соседи??7
буду очень благодарна... заранее спасибо))

[мария 12]

плиз помогите с написанием ответов...

[мария 12]

очень нужно....

[Asinkrit]

const
  CArrayLength = 50;

var
  vArray: array of Integer;
  i,s:integer;
  isFirst, isSecond:boolean; 

begin
  Randomize;
  SetLength(vArray, CArrayLength); 
  for i:=0 to CArrayLength-1 do
    begin
    vArray[i] := Random(100)-50;
    write(vArray[i],' ');
    end;
  Writeln;

  i:=0;
  s:=0;
  isFirst:=false;
  isSecond:=false;

  while (i < CArrayLength) and (not isSecond) do
    begin
    if (not isFirst) then isFirst:=(vArray[i] < 0)
      else
        if (not isSecond) then
          if (vArray[i] < 0) then isSecond:=true
            else s := s + vArray[i];
    Inc(i);
    end;

  if (not isFirst) then writeln('no negative numbers')
    else if (not isSecond) then writeln('only one negative number')
      else if (s = 0) then writeln('contiguous negative numbers')
        else Writeln('Sum is ', s);

  SetLength(vArray,0);
  Readln;
end.