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

[B&M]

дан список А, который состоит из записей: первое полее речовинне число, второе поле - адрес следующего елемента,
составить програму для вставки нового елемента Е1 перед последним вжодом елемента Е, если елемент есть в списке А.

[maksimla]

пример можешь дать ? и программу свою что неполучается

[B&M]

вот пример ток тут
данный список с целыми числами в информационном поле, изменить все значения елементов списка равных Х увеличить в 5 раз

program 12;
type sp=^elem;
elem=record
info1:=integer;
next:sp;
end;
var beg,p:sp;
n,x:integer; {n=во сколько раз увеличить}
begin
writeln('input x,n');
readln(x,n);
p:=beg;
while p<>nil do
begin
if p^.info=x then
p^.info:=p^.info*n;
p:=p^.next;
end;
writeln('new spisok');
p:=beg;
while p<>nil do
begin
write (p^.info,' ');
p:=p^.next;
end;
readln;
readln;
end.

[B&M]

это пример вставки елемента перед к-ым елементом

buf;=p^.info;
p^.info:=pk^.info;
pk^.info:=buf;


p:=pk^.next;
write (p^.info);
pk^.next:=p^next;

Сообщение отредактировано: B&M - 24.12.2008 22:04