списки-динамическая структура Опции

[reboot]

помогите с такой задачей:
Дан список, состоящий из N вещественных чисел. Удалить из него те звенья, значения которых меньше следующих. Организовать вывод начальной и конечной последовательности значений в списке.
вопрос первый: сдесь нужен массив записей, или можно обойтись нетипизированным файлом?
вопрос второй: если использовать массив то как обращаться к элементу списка при его заполнении рандомными числами?
понимаю что вопросы глупые и легкие(для кого-то), но у меня просто не очень хорошо общение со списками идет.

[volvo]

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

temp := root;
while (temp^.sled <> nil) and (temp^.sled^.sled <> nil) do begin
  { проверяем пару: следующий и который за ним, текущий не трогаем... }
  if temp^.sled^.znach < temp^.sled^.Sled^.znach then begin
    t2 := temp^.sled; { <--- Запоминаем элемент, нам его надо будет удалить }
    temp^.sled := t2^.sled; { корректируем указатели (перепрыгиваем через temp^.sled)  }
    dispose(t2); { Теперь можно удалять меньший элемент }
  end
  else temp := temp^.sled; { если ничего из списка не удалялось - продвигаемся дальше }
end;

Но... При таком проходе по списку одна пара от тебя ускользнет: это самый первый и второй элементы, они не будут сравниваться, сравнение начнется с пары "второй - третий". Это нехорошо. Чтоб решить проблему - введи еще одну переменную, типа Boolean, и перед проходом, который я показал, присвой ей True если root^.znach < root^.sled^.znach... Иначе - False.

Что это тебе даст? Потом, после прохода, и удаления меньших элементов в паре, тебе надо напечатать список? Вот если переменная равна True, удалишь из списка первый элемент, а потом начнешь печатать. Если False - ничего делать не надо, первый элемент не меньше второго, и его удалять не надо.

Теперь о печати списка. Опять же, не делается это через цикл For, вот так надо:

temp := root;
while temp <> nil do begin
  writeln('список[2] = ', temp^.znach);
  temp:=temp^.Sled;
end;

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