Создание списка 2 из элементов списка 1, на четно Опции

[ralf]

Процедура, работающая со списками!
Написать процедуру, создающую список 2 из тех элементов списка1, которые находятся на четном расстоянии от головы списка1. Список 1 должен сохраниться!!!
К примеру - список 1=12,17,9,4,6,11,7, то список 2=9,6,7!!

заранее благодарен!!

[volvo]

ralf, смотри вот эту тему
Установка указателя на I-й элемент списка , особенно функцию find_n в ней по-моему, это - то что тебе нужно...

[ralf]

Большое спасибо. посмотрю. как сделаю. результат программы скину!!!

[ralf]

Решение задачи:

Код

Procedure RALF;
var  head1, head2, a, b: reference;
                                   i: integer;
begin
 i:=0; new(head2);
 a:=head2; head2^.next:=nil;
 while head1<>nil do begin
   if (i mod 2)<>0 then head1:=head1^.next;
   else begin
     if head2^.next:=nil then head2^.inf:=head1^.inf;
     else begin
       new(b);
       a^.next:=b;
       a:=b;
       a^.inf:=head1^.inf;
     end;
   end;
   i:=i+1;
 end;
 a^.next:=nil;
end;

Благодарю за оказанную помощь!