Дана последовательность из нулей и единиц. признаком - вопрос №9441934 от Peleshok83 14.12.2020 08:51

Question

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

Peleshok83 · 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. определить количес