Найти длину самого длинного и самого короткого слова

@Лена18 · Регистрация: 17.10.2009

Помогите,пожалуйста,решить задачу!!!

Дана символьная строка,которая заканчивается точкой.Найти длину самого длинного и самого короткого слова.

Заранее спасибо!!!

@кот Бегемот · 14.12.2009, 21:49

Сообщение от Лена18

Помогите,пожалуйста,решить задачу!!!

Дана символьная строка,которая заканчивается точкой.Найти длину самого длинного и самого короткого слова.

Заранее спасибо!!!

Pascal

var
a,t:string;
b:array[1..100]of string;
i,k,min,max:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
min:=length(b[1]);
max:=length(b[1]);
for i:=1 to k do
begin
if length(b[i])>max then max:=length(b[i]);
if length(b[i])<min then min:=length(b[i]);
end;
writeln('max=',max);
writeln('min=',min);
readln;
end.

@Лена18 4 / 4 / 1 Регистрация: 17.10.2009 Сообщений: 21
		1
	Найти длину самого длинного и самого короткого слова 14.12.2009, 21:39. Показов 3539. Ответов 1 Метки нет (Все метки) Помогите,пожалуйста,решить задачу!!! Дана символьная строка,которая заканчивается точкой.Найти длину самого длинного и самого короткого слова. Заранее спасибо!!! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 1

Опции темы

Найти длину самого длинного и самого короткого слова

Решение