переписать из массива в линейный двунаправленный список чётные элементы массива

[FliPP]

вообще я писал процедуру вывода:

procedure WriteList;
var
List: text;
begin
Assign(List, 'List.list');
rewrite(List);

Curr:= Head;
repeat
write(List, Curr^.Data:0:3, ' ');
Curr:=Curr^.Next;
until Curr=NIL;

close(List);
end;

но не стал сюда писать, в условии ведь не сказано, что вывести надо)))

а по поводу среднего геометрического - мой касяк!! точно! я с чего то считал как среднее пропорциональное, а надо было именно так как ты сказал))) SrGeom:= exp(1/kol * ln(prod))

[Black_Ak24]

только вот мне самому интересно
как двунаправленный список должен выводиться на экран
он же как бы идет в 2ух направлениях
если считать так как ты написал то выходит что это то же самое что и простой однонаправленный список
поэтому когда я писал программу то выводил на экран данные как по next, так и по prev.


П.С.
возможно я и не прав
но логика мне так подсказывает

[FliPP]

если считать так как ты написал то выходит что это то же самое что и простой однонаправленный список
поэтому когда я писал программу то выводил на экран данные как по next, так и по prev

т.е. выводить в двух направлениях????
я вообще о списках немного знаю, но в моем понимании связь элементов отражается только на работе со списком... а при выводе отображается только информационная часть каждого узла...