Задача:"Описать процедуру, которая находит сумму последнего и предпоследнего элементов списка L, содержащего не менее 2х элементов. L->Э1/->Э2/->...Эn/nil."Вот судя по схеме нужно найти сумму Эn и Э(n-1) я правильно понял??И еще я не могу придумать алгоритм поиска. Я думаю что тут надо использовать двусвязный список или можно односвязным обойтись??

Rudolf, ну, если ты будешь использовать двухсвязный список - сама программка-то будет состоять из одной строки... Так что скорее всего - односвязный. Вот тут тебе придется подумать, как проходить по списку, чтобы не понадобилось возвращаться "назад"...

Вот вроде чет придумал:

но работать не хочет ...зависает.

Ну, еще бы оно не зависало... Ты же переменную P не изменяешь, она у тебя в одно и то же место указывает во втором цикле, и никогда не будет равна nil...

P.S. Кстати, это можно сделать и одним циклом...

p := L;
while p^.vol^.vol <> nil do p := p^.vol;
s := p^.number + p^.vol^.number;