Списки, список натуральных чисел Опции

[Jerry]

Здравствуйте.
Помогите пожалуйста напсиать программу. Из списка натуральных чилет удалить отрицательные компоненты.

[volvo]

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

Пожалуйста:

Var
  T: list_r; {это придется добавить в описания переменных }
...

  { Ну, а вот само удаление: }
  curc := m_list;

  { Проходим по всем элементам от 2-го до ПРЕДпоследнего... }
  while curc^.next <> nil do
    if curc^.next^.value < 0 then begin
      T := curc^.next; curc^.next := T^.next;
      dispose(T);
    end
    else begin
      pred := curc;
      curc := curc^.next;
    end;

  { ... и отдельно проверяем Первый ... }
  if (m_list <> nil) and (m_list^.value < 0) then begin
    T := m_list;
    m_list := m_list^.next;
    dispose(T);
  end;

  { ... и Последний элементы списка ... }
  if (curc <> nil) and (curc^.value < 0) then begin
    T := curc;
    pred^.next := nil;
    dispose(T)
  end;
  { Можно выводить на печать... }

Но !!! У тебя в Create_List есть ошибка, из-за которой ты будешь получать Segmentation Fault... Next последниего элемента списка должен указывать на nil, а у тебя он не указывает... Исправляем:

Procedure Create_list;
var i:byte;
begin
  new(m_list);
  current:=m_list;

  for i:=1 to n do begin
    current^.value:=a[i];

    if (i<n) then begin
      new(current^.next);
      current:=current^.next;
    end
    else current^.next := nil; { <--- Вот теперь ошибки не будет !!! }

    writeln('elements insert to the list!');
    readln;
  end;
end;