одномерный массив

[Nastya2406]

помогите пожалуйста....дан одномерный массив из n целых чисел.нужно найти сумму элементов массива между первым и последним нулевыми .за один цикл.и надо чтобы были разные варианты ответа:один нулевой,соседи,нет нулевых или считать сумму.очень срочно нужно.заранее спасибо

[Hacker19_90]

Ну как-то так наверно

pos1 := 0;
pos2 := 0;
sum := 0;
for i := 1 to n do
begin
     if (pos1 > 0) and (i <> pos2) then sum := sum + mas[i];
     if mas[i] = 0 then
         if pos1 = 0 then pos1 := i
         else if pos2 = 0 then pos2 := i;
end;
if pos2 = 0 then Writeln ('One zero');
if (pos2 - pos1) = 1 then Writeln('Соседи');
if pos1 = 0 then Writeln ('NOT ZERO')
else Writeln ('Summa = ', sum);

[Nastya2406]

спасибо огромное