В PascalABC дана последовательность целых чисел,в этой последовательности есть два нуля,...

Question

В PascalABC дана последовательность целых чисел,в этой последовательности есть два нуля, располагаются они в разных местах, надо найти количество чисел стоящих между этими нулями.

Comments

Всегда только два нуля? или все же нулей может быть и больше, и меньше?

---

Если всегда два, то yfqnb

---

Входные данные какие? Количество чисел определено заранее, или ввод заканчивается чем-то, или вообще подаётся в виде одной строки?

---

Если всегда ровно два, то Writeln(s.LastIndex('0')-s.IndexOf('0')+1)

---

Уточнил, был неправ: Writeln(s.LastIndexOf('0')-s.IndexOf('0')-1)

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var s:='6 -5 34 14 0 63 5 18 -34 0 45 12 -7';
  Writeln(s.ToWords.SkipWhile(x->x<>'0').Skip(1).TakeWhile(x->x<>'0').Count)
end.