Определить наименьшее слово в строке считать что все слова разделены пробелами пожалуйста помогите

Определить наименьшее слово в строке считать что все слова разделены пробелами пожалуйста помогите
Гость
Ответ(ы) на вопрос:
Гость
program zadacha; var s,temp,max,min:string; i,mxp,mnp:integer; begin writeln('Введите строку...'); readln(s); s:=s+' '; temp:=''; max:=''; min:=s; for i:=1 to length(s) do begin if s[i]<>' ' then temp:=temp+s[i]; if (s[i]=' ') and (temp<>'') then begin if Length(temp)Length(max) then begin max:=temp; mxp:=i-Length(temp) end; temp:=''; end; end; if max<>'' then begin Writeln('Самое длинное: ',max,' Оно начинается с: ',mxp); Writeln('Самое короткое: ',min,' Оно начинается с: ',mnp) end else WriteLn('В данной строке нет слов!') end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы