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

diankapazyukа diankapazyukа    3   30.09.2019 12:50    1

Ответы
Grisha222 Grisha222  09.10.2020 05:29
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. определить количес
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика