Задачи по спискам и деревьям Опции

[HEKTO]

Товарищи, я понимаю, что с такими глупыми вопросами лезут каждый день и достают, но, пожалуйста, спасите. До утра я должен сделать вот эти 3 задачки:

1. Дан вектор B, который состоит из указателей на целые переменные. Составить подпрограмму для вычисления первого из элементов вектора B, которые указывают на отрицательные числа(NIL если такие отсутствуют).

2. В списке переставляет в обратном порядке все элементы между первым и последним вхождением элемента X, если X входит в список не менее 2 раз.

3. Используя очередь или стек написать процедуру или функцию, которая:
Присваивает параметру Е элемент листа непустого дерева Д, который является самым левым.

ЗЫ Убедительная просьба не отсылать меня в разделы по этим темам, к сожалению я не успею в этом разобраться.

Сообщение отредактировано: HEKTO - 24.06.2005 3:54

[volvo]

1. Дан вектор B, который состоит из указателей на целые переменные. Составить подпрограмму для вычисления первого из элементов вектора B, которые указывают на отрицательные числа(NIL если такие отсутствуют).

function first_negative(root: plist): plist;
begin
  first_negative := nil;
  while root <> nil do begin
    if root^.data^ < 0 then begin
      first_negative := root; exit
    end;
    root := root^.next;
  end;
end;

P.S. Во второй задаче уточни, какой список - одно или двунаправленный?