Двунаправленный список Опции

[RIDDICK]

Давно не просил помощи)))

Даны : натуральное число N, действительные числа A1 .. A2n.
Выяснить, верно ли, что для i = 1, ... , N выполнено:

Ai = 2*An-1 + A2*n-i+1;

Использовать двунаправленный список.

:molitva:

[volvo]

Запоминаешь элемент который находится на позиции N (в переменную element)
Проходишь по списку последовательно (начиная с "головы") и проверяешь, что для каждого элемента выполняется условие:

is_ok := True;
_start := { голова списка }
_finish := { хвост списка }
while (_start <> nil) and is_ok do begin
  is_ok := is_ok and (_start^.Data = (2*element - 1) + (_finish^.Data+1) )
  _start := _start^.next;
  _finish := _finish^.prev;
end;
{ результат - в переменной is_ok }

Подробности - в FAQ-е