Дана последовательность из нулей и единиц. признаком - вопрос №9441534 от AAndrey7600 24.01.2020 08:01

Question

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

AAndrey7600 · Answer

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.

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