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

[ura_111]

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  begin j:=i ;
    Break; end;
 end;
 for i:=4 downto 0 do begin
   if (a[i]<0) then  begin k:=i ;
     Break; end;
end;
for l:=(j+1) to (k-1) do
s:=s+a[l];
 Label3.Caption:=inttostr(s);
end;

end.

[ura_111]

2.jpg

[Aleksandr H.]

Сообщение от Alfanok

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

Алгоритм не соответствует заданию. В задании: Найти сумму от первого к второму. Алгоритм ищет от первого до последнего. Если очень хочется через for, тогда второй for запускай не с конца, а от результат первого for +1 до первого встречного минусового єлемента