单链表的删除操作procedure delete

20 查阅
单链表的删除操作procedure delete(L:linklist; I:integer);var p,q:pointer;

参考答案:

正确答案:

\r\n

begin
p:=loc(L,I-1);
q:=p^.next;
p^.next:=q^.next;
dispose(q);
dec(L.len);
end;

操作