Задачка с процедурой., Как найти самую длиную цепь из нулей и показать их позицию в векторе. Опции

[DarkWishmaster]

Привет всем! Вот такая задачка, есть вектор A[1..100] of integer;
надо создать процедуру которая будет показывать сколько нулей в самой длиной цепи из нулей в векторе, и показывать позиции в векторе первого и последнего нуля в цепи, например:
x 0000 xx 00
Результат:
нулей 4
первая позиция нуля -2
последнея позиция нуля -5.

[Lapp]

2 мисс_граффити:
флажок тут совершенно лишний.. Признаком того, что найдена последовательность, может являться само отличие ее длины от нуля. Но и это тоже лишнее , потому что можно считать что мы ВСЕГДА внутри последовательности нулей (может быть, нулевой длины)), то есть поиск ее вообще отпадает. И последнее: запоминать и начало, и конец - тоже слишком много чести, когда есть длина .

2 DarkWishmaster:
если что непонятно - спрашивай..

const
  n=60;

var
  i,l,m,x: integer;
  a: array [1..n] of integer;

begin
  Randomize;
  for i:=1 to n do a[i]:=Random(3);
  for i:=1 to n do Write(a[i]:(10-(i-1)mod 10) div 5);
  WriteLn;

  l:=0;
  for i:=1 to n do begin
    if a[i]=0 then Inc(l) else l:=0;
    if l>m then begin
      m:=l;
      x:=i
    end
  end;

  Write('max=',m);
  if m>0 then Write('  x1=',x-m+1,'  x2=',x);
  ReadLn
end.

[DarkWishmaster]

Ого спасибо огромное!
1)random(3) он заполняет вектор числами 0,1,2 -> вопрос, можно ли например заполнить тоже по 3 только в другом диапазоне -6,7,9. Или вообще задавать числа? И ещё вопрос, какую функцию выполняеть Randomize? потому что если его удалить то никаких изменений.

Дальше всё понятно, спасибо.

Такое страное ощущения когда думаешь и не получаеться что-то сделать а потом видешь как это просто )


Сообщение отредактировано: DarkWishmaster - 11.12.2010 22:34