Дана последовательность из нулей и единиц. признаком - вопрос №19441759 от Vika20040406 30.04.2023 18:14

Question

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

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