Akad, возможно и я не прав =)
vasia3, для начала извлекаешь все слова в массив, слово - буквы между точками или запятыми, сортируешь массив и вуаля. И потереби поиск, тут где-то была тема от юзера SuHaR, у него там конечно посложнее задачки, но похожая тема есть..

Сообщение от vasia3:
Дана последовательность до 30 слов

А потом люди, научившиеся в школе/вузе решать подобные задачи идут писать в крупные фирмы серьезные программы, которые будут глючить у людей всего мира. Жуть! Я понимаю, что паскаль – это недоязык, на котором без изврата ничего не напишешь, но зачем ставить задачу и кастрировать ее до степени, когда ее можно реализовать на конкретном языке?

Сообщение от Akad:
когда ее можно реализовать на конкретном языке?

Потому что это будет не обучение, а начало выяснения "какой язык конкретнее"

Сообщение от mexx:
vasia3, для начала извлекаешь все слова в массив, слово - буквы между точками или запятыми, сортируешь массив и вуаля.

нифигасебе.... а если дан текстовый файл размером 30 мегабайт, со словами, и дальше по условию, тоже в массив пихать прикажете?)))))

Сообщение от Ekaterina-vrn:
исправьте, где ошиблась!

Сообщение от Max 2008:
2). Найти номер первого отрицательного элемента делящегося на 5 с остатком 2.

Сообщение от Ekaterina-vrn:
for i:=1 to 20 do
begin
readln(a[i]) ;
if i mod 2 =1 then summ:=summ+a[i];
if (a[i]<0) and (a[i] mod 5=2) and (ost=0) then ost:=i
end;

тут помойму в результате цикла ты найдёшш последний...

Сообщение от HepB:
and (ost=0)

Внимание обрати =)

Snusmumrik, в школе таких файлов точно не дадут))

dn2k4, нет. Это будет именно ОБУЧЕНИЕ. Не бывает хороших и плохих языков. Бывают задачи, которые решать проще на данных языках. Если задача не решается (я не говорю про извраты) на данном языке программирования, то тут 2 варианта:
1. Не давать эту задачу детям.
2. Обучить детей языку программирования на котором она решается.
Но не как не пытаться искусственно ограничить ее. В жизни таких ограничений быть не может. А люди привыкают так писать и или выделают 50-70% памяти под статические массивы, которую вообще не используют, или наоборот объявляют массив из 10 объектов, а у юзера их оказывается 11. Короче препа, давшего эту задачу в школу на переучивание.

Сообщение от mexx:
Snusmumrik, в школе таких файлов точно не дадут))

почему же? всего-то надо пройти 2 темы: циклы и файлы. задача решится очень просто. и даже не придется все 30 метров символов грузить в память).
Посмотрите, что я выделил и подумайте, почему там не написано массивы)

Сообщение от Akad:
Жуть! Я понимаю, что паскаль – это недоязык, на котором без изврата ничего не напишешь, но зачем ставить задачу и кастрировать ее до степени, когда ее можно реализовать на конкретном языке?

Сообщение от Akad:
Это будет именно ОБУЧЕНИЕ. Не бывает хороших и плохих языков. Бывают задачи, которые решать проще на данных языках. Если задача не решается (я не говорю про извраты) на данном языке программирования, то тут 2 варианта:
1. Не давать эту задачу детям.
2. Обучить детей языку программирования на котором она решается.
Но не как не пытаться искусственно ограничить ее. В жизни таких ограничений быть не может. А люди привыкают так писать и или выделают 50-70% памяти под статические массивы, которую вообще не используют, или наоборот объявляют массив из 10 объектов, а у юзера их оказывается 11. Короче препа, давшего эту задачу в школу на переучивание.

если у вас какието траблы с конкретным языком-сочувствую. паскаль-достаточно гибкий инструмент. Некоторым танцорам правда все время чтото мешается.. причину надо искать не в этом.
Теперь про преподов... к сожалению, препы в школах дают не то, что им бог на душу положит, а то, что написано в учебнике, рекомендованном к изучению в данном классе данного уровня школы, итд, итп. Про любые другие задачи-сказано просто "не допускается хранение в кабинете книг, кроме допущенных мин. образования рф.". Если мне, допустим, нравятся задачи Иванова И.И. в учебнике "Паскаль", но мин.образования, к сожалению, не включило его в учебный план, любоваться этим учебником я могу лишь дома)) For private uses).

Сообщение от vasia3:
Дана последовательность до 30 слов,в каждом из которых от 1 до 5 символов,между словами-пробел или запятая.В конце последовательности-точка.Напечатать все слова по возрастанию их длинны.

А задачка то непростая. последовательность до 30 слов это array[1..30] of word . В слове от 1 до 5 символов, значит имеем 7 буквенный алфавит, а символ с кодом 000 будет считаться отсуствием символа. Один бит у нас еще остается для контроля. Хм только вот никак не пойму зачем слова разделять ',' ' ', наверное в том случае если мы можем слова принимать побитно и возможно не с начала. Нехилая задачка для школы.
Я так думаю, иначе зафига вобще на форуме спрашивать о решении такой бредово легкой задачи, что ее не могут однокласники за бутылку кока-колы решить? Если никто не может, то видимо правда учителя надо на курсы повышения квалификации отправлять.

кароче,одна бессоная ночь и вуаля....

program n1;
uses crt;
var
l1,l2,l3,l4,l5,n,p:string;
t,i,k:integer;
begin
clrscr;
read(p);
k:=0;
t:=1;
for i:=1 to length(p) do
begin
if (p[i]=' ') or (p[i]='.') or (p[i]=(',')) then
begin
n:=copy(p,1,i-1);
delete(n,1,k);
k:=i;
n:=n+' ';
end;
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=2) then
begin
insert(n,l1,t);
t:=t+2;
end;
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=3) then
begin
insert(n,l2,t);
t:=t+3;
end;
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=4) then
begin
insert(n,l3,t);
t:=t+4;
end;
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=5) then
begin
insert(n,l4,t);
t:=t+5;
end;
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=6) then
begin
insert(n,l5,t);
t:=t+6;
end;
end;
write(l1);
write(l2);
write(l3);
write(l4);
write(l5);
end.

вообщем-то получается что кол-во слов,введенных с клавы,файла,... не играет тут большой роли...
Тока вот думаю,достаточно-ли рационально такое решение??

Сообщение от vasia3:
write(l1);
write(l2);
write(l3);
write(l4);
write(l5);

)).
Не оптимально, но работать будет, наверное.. не запускал.

это все да,но я недопираю до другого...можно-ли как-то избавится от бесконечных повторений вот этой части кода:if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and ???
а косметическую хирургию приберегу на десерт...=)

Сообщение от vasia3:
то все да,но я недопираю до другого...можно-ли как-то избавится от бесконечных повторений вот этой части кода:if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and ???
а косметическую хирургию приберегу на десерт...=)

если хочешь использовать именно такую структуру-заведи еще одну переменную, кот. вначале будет равна двум, а потом, по мере прочитывания всей строки будет увеличиваться на 1. до 6.

Сообщение от vasia3:
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) and (length(n)=5)

(length(n)=z) и далее по тексту.

Snusmumrik,если я правильно понял ты предлагаешь примерно такой вариант:
for length(n):=2 to 6 do
begin
if ((p[i]=' ') or (p[i]='.') or (p[i]=(','))) then
begin
insert(n,l1,t);
t:=t+2;
end;
...
...
...
{и.т.д}
...
...
...
begin
insert(n,l5,t);
t:=t+6;
end;
end;
-----------------------------
но так тут очевидно не получится т.к слова состоящие из определенного кол-ва букв тогда будут вставлятся не только в ''cвою строку'' ,но и во все остальные, и к тому же не на те позиции в строке,которые предназначенны для соответствующих длин слов...
-----------------------------
Вообщем,честно говоря, я не понимаю как тут можно осуществить подобную идею...

рассказываю по-русски. читаешь строку. перемещаешь из нее все слова длиной 2 символа. читаешь снова, перемещаешь длиной 3 символа, и так до 6.
Ты же их удаляешь из исходной? если тебе нужно то, что ввел пользователь-скопируй вначале введенную во временную, и ее и режь как тебе надо...

Не исключаю, что в 3:46 чтото написал неверно, но имха, пойдет..

подьем!
8 символов!