Вводится последовательность натуральных чисел. Признак конца ввода - ноль. Необходимо проанализировать подпоследовательности из подряд идущих чисел «`2`» и вывести количество чисел в самой длинной из них.

Паскаль ЗФТШ

175

346

Посмотреть ответы 2

Ответы на вопрос:

pOMOGITPLZ1

Информатика

4,6(81 оценок)

В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `2`, то увеличиваем счётчик количества, если же нет, то это означает, что подпоследовательность закончилась, и надо проверять, не превзошли ли мы максимум, а потом текущий счётчик сбрасывать в `0`. И ещё нужно сделать такую проверку после цикла, поскольку последовательность может закончиться на `2`.

var a,k,max:integer;

begin

max:=0;

k:=0;

read(a);

while a <> 0 do begin

if a = 2

then k := k + 1

else begin

if k > max then max := k;

k := 0

end;