Дана последовательность из нулей и единиц. признаком окончания является число -1....

Question

Дана последовательность из нулей и единиц. признаком окончания является число -1. определить количество максимально подряд ищущих нулей.-Решить на языке Pascal

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqIntegerWhile(t -> t > -1).AdjacentGroup.Where(t -> t[0] = 0)

     .Select(t -> t.Count).Max.Println

end.

---