Определить количество чисел в наиболее длинной подпоследовательности

@Selvia · Регистрация: 23.03.2017

Author24 — интернет-сервис помощи студентам

3)Дана последовательность из 100 целых чисел. Определить
количество чисел в наиболее длинной подпоследовательности из
подряд идущих нулей

@Alexandr212 · 23.03.2017, 19:55

Pascal

var
  a, b, i: integer;
 
begin
  for i := 1 to 100
  do 
  begin
    read(a);
    if a = 0
    then begin
      inc(a);
      if a > b
        then b := a;
    end
    else a := 0;
  end;
end.

@Selvia 0 / 0 / 0 Регистрация: 23.03.2017 Сообщений: 24
		1
	Определить количество чисел в наиболее длинной подпоследовательности 23.03.2017, 18:45. Показов 1473. Ответов 1 Метки нет (Все метки) 3)Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей 0

	23.03.2017, 19:55

Определить количество чисел в наиболее длинной подпоследовательности

Решение