поискв строке

[Apis]

Подскажете пожалуйста как в строке из 0 и 1 найти самую длинную цепочку из 1???

[UnderwooD]

Заводим массив А на длину строки. заполняем его нулями. если первый элемент строки - 1, то А[1] присваиваем 1.

дальше следующий цикл:
for i:=2 to length(s) do if s[i]=1 then
begin
A[i]:=A[i-1]+1;
if A[i]>max then max:=A[i];
end;


PS как выделять код в сообщении?

[bitSoft]

Сообщение от UnderwooD

Заводим массив А на длину строки. заполняем его нулями. если первый элемент строки - 1, то А[1] присваиваем 1.

дальше следующий цикл:

 for i:=2 to length(s) do if s[i]=1 then
  begin
   A[i]:=A[i-1]+1;
   if A[i]>max then max:=A[i]; 
  end;

PS как выделять код в сообщении?

net, cod ne tak, tvoi cod citaet vse 1 iz stroki, a emu nado samuyu dlinuiu tzipochiku, tipa 01100010111000101001101111000111100 0001111111110000

a samaya dlinaia budet 01100010111000101001101111000111100 0001111111110000

tak shto v code tak nado pa moemu

 for i:=0 to length(s) do
 if s[i]='1' then
  begin
   A[i]:=A[i-1]+1;
  end else
   begin
    for i := 0 to length(s) do 
     A[i] := '0';
   end;

primerna tak, delphi ne atkril.