Дана строка, слова в которой разделены пробелами. Удалите из строки самое короткое слово

@Legomegger · Регистрация: 28.02.2014

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста бьюсь час над задачей

@kitap · 14.03.2014, 11:05

Tebe dana stroka i tebe nado udait iz etoy stroki samoye korotkoye slowo

Добавлено через 7 минут

Pascal

Uses crt;
Var
   s,del : String;
   k : array [1..100] of string;
   i,j,c,min : Integer;
begin
ReadLn(s);
c:=1;
 
for i:=1 to length(s) do
                        begin
                        if s[i]<>' ' then k[c]:=k[c]+s[i] else
                        if (s[i]=' ') and (s[i+1]<>' ') then inc(c);
                        end;
min:=Length(k[1]); del:=k[1];
for i:=1 to c do
    if length(k[i])<min then begin min:=length(k[i]); del:=k[i]; end;
    
for i:=1 to c do
    if k[i]<>del then Write(k[i],' ');
end.

@Legomegger 1 / 1 / 0 Регистрация: 28.02.2014 Сообщений: 19
		1
	Дана строка, слова в которой разделены пробелами. Удалите из строки самое короткое слово 13.03.2014, 21:43. Показов 2768. Ответов 1 Метки нет (Все метки) Помогите пожалуйста бьюсь час над задачей 0

	14.03.2014, 11:05

Опции темы

Дана строка, слова в которой разделены пробелами. Удалите из строки самое короткое слово

Решение