Сайт Льва Волкова
  
· Первая постройка Д. Трезини 1703 г. Петропавловская крепость. Старейшая жилая постройка - домик Петра 1 на Петровской наб.
 
      На главную  
 Личное
  Статьи
  Задачи 
 Ссылки
 АТ-531
www.levvol.ru    
 

Самая длинная подпоследовательность в последовательности

В последовательности 0 и 1 найти длину самой длинной подпоследовательности 0, индекс ее начала и индекс ее конца. Длина последовательности задана.

Входные данные: n=10. 0 1 0 0 0 0 1 0 0 0

Выходные данные: 4 3 6



Program Sequence;
Uses CRT;
Const n=10;
Var
x:array [1..n] of integer;
i,max,k,s:integer;
Begin
ClrScr;
for i:=1 to n do begin
{ввод и проверка данных}
repeat
write(i,' '); readln(x[i]);
until (x[i]=0) or (x[i]=1);
end;
{вывод исходной последовательности}
for i:=1 to n do
write(x[i]);
writeln;
s:=0; max:=0;
for i:=1 to n do
if x[i]=0 then inc(s)
else if s>max then
begin
max:=s; k:=i-1; s:=0
end;

{Если самая длинная подпоследовательность
в конце последовательности}

if s>max then
begin
max:=s; k:=n
end;
{вывод результата}
writeln(max,' ',k-max+1,' ',k);
readln
End.


Скачать эту программу

Назад