Задача на указатели.

[pz32]

Написать программу. Содержащую подпрограмму. Которая копирует в начало непустого списка М его последний элемент. Если элементы не найдены, то выдать на экран соответствующие сообщение.

[Serge_Bliznykov]

есть, командир!
разрешите выполнять?!

[pz32]

хаха, так точно. Просто кому не сложно, помогите, задача из практики в колледже.

[Serge_Bliznykov]

так чем помочь то? Сделать полностью всё за вас?!

а подобные задачи на форуме уже решались многократно, найдите подобную, разберитесь в коде, будут вопросы - обращайтесь...

[pz32]

ввод и вывод списка есть, нужна сама процедура копирования элемента

[Serge_Bliznykov]

ввод и вывод списка есть, нужна сама процедура копирования элемента

Продолжаете играть в партизана... ну-ну...

и не понимаю, если есть ввод и вывод, то какие проблемы написать ввод ещё одного элемента в список?!

впрочем, извольте.
вот код (фрагмент) программы, который решает проблему копирования последнего элемента списка перед первым элементом:

type
  PNode = ^Node;
  Node = record
    data: integer;
    next: PNode;
  end;
var
  last_rec, current: PNode;
  head: PNode;

......

  if head = nil then WriteLn('Элементы в списке не найдены!')
  else begin
    {сначала найдём последний элемент односвязного списка}
    last_rec := head;
    while last_rec^.next <> nil do 
      last_rec := last_rec^.next;

    WriteLn('Значение поля DATA в последнем элементе: ',last_rec^.data);

    {добавим это значение в голову списка (перед первым элементом)}
    New(current); current^.data := last_rec^.data; current^.next := head;
    head := current;
  end;


  {выведем содержимое списка на экран}
  writeln('---List---');
  current := head;
  while current <> nil do begin
    write(' ', current^.data);
    current := current^.next;
  end;
  WriteLn;