Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет): procedure TForm1.Button1Click(Sender: TObject); var s:string; i,k,max:integer; begin if combobox1.Text<>'' then begin s:=combobox1.Text; combobox1.Items.Insert(0,s); s:=s+' '; while pos(' ',s)>0 do delete(s,pos(' ',s),1); k:=0; max:=0; for i:=1 to length(s) do if s[i]<>' ' then k:=k+1 else begin if k>max then max:=k; k:=0; end; label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max); end; end;
Решение на языке Pascal, где используется одномерный массив.