Đầu tiên bạn đọc vào mảng độ dài N, sau đó chỉ cần duyệt số 0 là ổn, với điều kiện dữ liệu đảm bảo tồn tại 2 số 0 thì:
var s,d, sum;
begin
for i := 1 to N do read (a);
s := 1;
while (s <= N) do begin
if a ==0 then break;
inc (s);
end;
inc (s);
while (s <= N) do begin
if (a == 0) then break;
sum = sum + a;
end;
write (sum);
end.