Помогите написать код для небольшой задачки в delphi.

[Alfanok]

Нужно посчитать сумму чисел, от первого отрицательного до второго отрицательного. Я сделал код но ответ всегда 10, в чём ошибка?

var 
a:array[0..4] of integer;
i,j,l,k,s:integer;
begin
s:=0;
for i:=0 to 4 do
 a[i]:=StrToInt(StringGrid1.Cells[i,0]);
 for i:=0 to 4 do begin
   if (a[i]<0) then j:=i
  else Break;
 end;
 for i:=4 downto 0 do begin
   if (a[i]<0) then k:=i
 else Break;
end;
for l:=j to k do
s:=s+l;
 Label3.Caption:=inttostr(s);
end;

[ura_111]

Знаешь что, выведи на экран k, j
Чему равны?

[Aleksandr H.]

s:=s+a[l];

Что должно быть результатом массива?

-1 -2 -3 -4

for i:=0 to 4 do
 begin
    if a[i] < 0 then 
     begin
       s:=0;
       k:=i+1;
        while (a[k]>0) and (k<=4) do
             begin s:=s+a[k]; inc(k); end;
     break;
     end
 end;

[ura_111]

И вроде "Break не else"

if (a[i]<0) then j:=i
  else Break;

а в 'if". Т.е. нужно: сработало условие -> j:=i -> аварийный выход

А в массиве есть положительные числа?

[Alfanok]

Вывел k и j ответ: j=0 и k=4, а сумма 10. Если без break то ответ:j=4 и k=0, а сумма 0. Да положительные есть. Отрицательные в 1 и 5 столбике.

[Alfanok]

Сообщение от Aleksandr H.

Что должно быть результатом массива?

Сумма. Ваш код правильный, только я хочу через for.

[ura_111]

НА СТР 2

[Alfanok]

Значений массива. Оно должно делать: в первом for первое отрицательное и сохранить, а во втором for второе отрицательное с конца, сохранить и в третьем for найти сумму чисел между 1 и 2 for.

[ura_111]

НА СТР.2

[Alfanok]

Ты чуть не правильно после j:=i и k:=i нужна точка с запятой, не уверен на счет скобок для 1 действия, но всё равно ответ не тот. Вот другой код для этого задания, друг сделал(но он с boolean, я та понял что там делается, но учитель подумает что кто-то мне помог)

var
  a:array[0..4] of Integer;
  summa,i:Integer;
  iscalc:Boolean;
begin
 for i:=0 to 4 do
 a[i]:=StrToInt(StringGrid1.Cells[i,0]);
    isCalc:=False;
summa:=0;
for i:=Low(a) to High(a) do
  if (a[i]<0) then
    if (isCalc=False) then
       isCalc:=True
    else
       break
  else
    if isCalc then
       summa:=summa+a[i];
 Label3.Caption:=IntToStr(summa);
 end;