Внутренняя для работы компьютера , внешняя для пользователя компьютера
Назвали так потому, что в них используется Флэш-память
<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.
<u>Примеры</u>
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
<span>for k:= -1 to1 do = 3 раза
for k: = 10 to 20 do ...21 раз
for k: =20 to 10 do ... 0 раз
k:= 5; r:=15; for i:= k+1 to r-1 do ...9 раз
k:= 5; r:= 15; for i:= 0 to k*r do ...76 раз
k: = r ; for i:= k to r do ..0 раз</span>