Собит
Лилия Багаутдинова
Вот так:
Cur := First;
while Cur <> Nil do begin
if Cur^.N < 0 then begin New(Tmp); Tmp^.N := First^.N; Tmp^.Next := Cur^.Next; Cur^.Next := Tmp; Cur := Tmp; end;
Cur := Cur^.Next;
end;
ГТ
Геннадий Томилин
элементарно
Похожие вопросы