[C++] .Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом- точка. Найти самые длинные слова.

[claaYs]

Помогите пожалуйста решить.

[Alex11223]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

type tArrs=array of string;

procedure Analiz(s:string; var st:tArrs);
var i,count:integer;
    s1:string;
begin
   count:=0;
   SetLength(st,0);
   While s<>'' do
   begin
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         Delete(s,1,i);
      end else
      begin
         s1:=s;
         s:='';
      end;
      If s1<>'' then
      begin
         count:=count+1;
         SetLength(st,count);
         st[count-1]:=s1;
      end;
   end;
end;

var s:string;
    st:tArrs;
    i,m:integer;
begin
   Write('s = '); Readln(s);
   Analiz(s,st);
   m:=0;
   For i:=Low(st) to High(st) do
      If m<Length(st[i]) then
         m:=Length(st[i]);
   For i:=Low(st) to High(st) do
      If m=Length(st[i]) then
         Writeln(st[i]);
   Readln;
end.

[claaYs]

а как C++ будет?