<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var n:=ReadInteger; var a:=ReadArrReal(n); var si:=a.IndexesOf(t->t=0); if si.Count<2 then Writeln(0) else Writeln(a[si.First+1:si.Last].Sum:0:3) end.