Найти сумму элементов последовательности между первым и последним нулем.

[alonix]

Найти сумму элементов последовательности между первым и последним нулем. Последовательность содержит по крайней мере 2 нуля.
Решение можно представить на любом из языков программирования, заранее благодарен за помощь.

[alonix]

Помогите ребят

[Mad_Cat]

k:=1;
while a[k]<>0 do k:=k+1;
i:=n ;
while a[i]<>0 do  i:=i-1;s:=0;
while k<=i do begin s:=s+a[k];k:=k+1;end;

[alonix]

Проблема в том что нельзя использовать счет с конца последовательности

[Mad_Cat]

проблема в том что нельзя использовать счет с конца последовательности

а где об этом в условии?

for i:=1 to n do
if a[i]=0 then begin k:=i;break;end;
For i:=k+1 to n do
if a[i]=0 then k1=i;
For i:=k to k1 do
s:=s+a[i];

[alonix]

Спасибо, а если в последовательности будет 3 или более нуля?

[Mad_Cat]

Спасибо, а если в последовательности будет 3 или более нуля?

то

Найти сумму элементов последовательности между первым и последним нулем.

выполнится