Определение серии чисел, входящих в последовательность

@pwr · Регистрация: 27.10.2013

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

последовательность натуральнх чисел(типа integer) кончается нулем. Длина последовательности неограничена. числа могут в мен повторятся. Определить максимальную длину непрерывное сечения одного и того же числа содержащихся в данной последовательности. Длиной подрозумеваю количество цифр. например
4 6 6 14 5 9 9 9 9 12 15 6 6 6 9 0
правильным ответов будет число 4. результат максимальной непрерывной части 9 9 9 9, имеет длину 4

@Puporev · 27.10.2013, 11:52

Pascal

var a,b,k,mx:byte;
begin
writeln('Введите последовательность натуральных чисел,');
writeln('в том числе одинаковые подряд, окончание ввода 0:');
mx:=0;
k:=1;
repeat
write('Первое число >0 ');
readln(a);
until a>0;
writeln('Остальные числа:');
repeat
  repeat
  readln(b);
  until b>=0;
  if b=a then k:=k+1
  else
   begin
    if k>mx then mx:=k;
    k:=1
   end;
  a:=b
until b=0;
writeln('Максимальная последовательность одинаковых чисел подряд=',mx);
readln
end.

@pwr · 27.10.2013, 12:59 **[ТС]**

спасибо большое)))

@pwr 0 / 0 / 0 Регистрация: 27.10.2013 Сообщений: 9
		1
	Определение серии чисел, входящих в последовательность 27.10.2013, 03:33. Показов 1232. Ответов 2 Метки нет (Все метки) последовательность натуральнх чисел(типа integer) кончается нулем. Длина последовательности неограничена. числа могут в мен повторятся. Определить максимальную длину непрерывное сечения одного и того же числа содержащихся в данной последовательности. Длиной подрозумеваю количество цифр. например 4 6 6 14 5 9 9 9 9 12 15 6 6 6 9 0 правильным ответов будет число 4. результат максимальной непрерывной части 9 9 9 9, имеет длину 4 0

@pwr 0 / 0 / 0 Регистрация: 27.10.2013 Сообщений: 9
	27.10.2013, 12:59 [ТС]	3
	спасибо большое))) 0

Определение серии чисел, входящих в последовательность

Решение