Списки Опции

[Guest]

Пожалуйста подскажите!

Как из списка удалить за каждым вхождением элемента Х один элемент,если он есть и отличен от Х.

[volvo]

Описание списка и реализацию остальных функций/процедур для работы со списком - в студию...

[Guest]

Описание списка и реализацию остальных функций/процедур для работы со списком - в студию...

type ref=^Elem;
     Elem = RECORD
        Inf: integer;
        Next: ref;
        end;
var L, p: ref;
    x: integer;
const Strelka = '->';

Procedure Print_List(p: ref);
begin
  while p<>nil do
  begin
    write(Car(p),Strelka);
    p:=Cdr(p);
  end;
  writeln
end;


Begin
  L:=nil;
  write('Element: ');
  readln(x);
  while x<>0 do
  begin
    L:=Cons(x,L);
    write('Element: ');
    readln(x);
  end;
  Print_List(p);
  
END.