Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей

@mysteria-m · Регистрация: 26.12.2013

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

Дана последовательность из n целых чисел. Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей.
Например, если n=10 и вводим числа 1, 0, 0, 3, 5, 0, 0, 0, 2, 0, то ответ равен 3.
Помогите плиз(((

@Puporev · 10.01.2014, 09:52

Pascal

uses crt;
var n,a,b,i,k,mx:byte;
begin
clrscr;
repeat
write('n>1 n=');
readln(n);
until n>1;
writeln('Введите последовательность из ',n,' целых чисел,');
writeln('в том числе последовательности нолей:');
readln(a);
mx:=0;
if a=0 then k:=1 else k:=0;
for i:=2 to n do
 begin
  readln(b);
  if b=0 then k:=k+1
  else
   begin
    if k>mx then mx:=k;
    k:=0
   end;
  if (i=n)and(k>mx) then mx:=k;
  a:=b;
 end;
writeln('Максимальная последовательность нолей=',mx);
readln
end.

@mysteria-m · 10.01.2014, 09:53 **[ТС]**

Спасибо огромное!! очень помогли!!

@mysteria-m 3 / 3 / 5 Регистрация: 26.12.2013 Сообщений: 197
		1
	Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей 10.01.2014, 08:10. Показов 2520. Ответов 2 Метки нет (Все метки) Дана последовательность из n целых чисел. Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей. Например, если n=10 и вводим числа 1, 0, 0, 3, 5, 0, 0, 0, 2, 0, то ответ равен 3. Помогите плиз((( 0

@mysteria-m 3 / 3 / 5 Регистрация: 26.12.2013 Сообщений: 197
	10.01.2014, 09:53 [ТС]	3
	Спасибо огромное!! очень помогли!! 0

Определите количество чисел в наиболее длинной последовательности из подряд идущих нулей

Решение