Question

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

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.