Удалить из списка один элемент после первого элемента с нулевым значением, если его значение отлично от него.
Написал я для этого дела такую процедуру:
procedure DelX(var start:link);
var p,pr:link;
k:integer;
begin
Writeln('Удаление из списка первого элемента после нуля (если это не ноль)');
k:=0;
p:=start;
while (k=0) AND (p<>nil) do
begin
if (p^.inf=0) then
begin
p:=p^.next;
if (p^.inf=0) then k:=1
else
begin
pr^.next:=p^.next;
dispose(p);
p:=pr^.next;
k:=1;
end;
end
else begin pr:=p; p:=p^.next; end;
end;
if k=0 then writeln('Ни одного нуля не найдено.');
Write('Нажмите любую клавишу');
readln;
end;
Но она очевидно неправильная. Во-первых, когда после нуля идет число, то она удаляет не только это число, но и сам нуль. Когда два нуля подряд - все нормально. Во-вторых программа вылетает, когда список начинается с нуля.
Буду очень благодарен, если сможете указать на мои ошибки.