Дана последовательность из нулей и единиц. признаком окончания является число -1. определить количество максимально подряд ищущих нулей.
-Решить на языке Pascal
Ответы
Ответ дал:
0
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 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад