// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var a:=ReadArrReal(n);
var si:=a.IndexesOf(t->t=0);
if si.Count<2 then Writeln(0)<br> else Writeln(a[si.First+1:si.Last].Sum:0:3)
end.
Примеры
8
-4.6 3.9 0 2.4 1.7 0 0 2.1
4.100
5
0 0.244 -3.253 0 2.34
-3.009