Задача делфи

[Vadim_rush]

type ТЭ=real;
список=^звено;
звено= record элем: ТЭ;
след: список
end;
Описать и проверить функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L.

[Vadim_rush]

Ребят!!! помогите кто нибудь !

[denisbrain]

http://netsoftware.ucoz.ru/news/odno.../2012-04-27-47
может помочь статья и мой модуль работы
ссылка на пример программы http://netsoftware.ucoz.ru/32_dinamicheskie_stroki.zip
пример написан на Delphi

unit Unit2;

interface
uses Classes;
 Type
    TElement = record
       pole1:string;  {поле 1 }
       pole2:string;  {поле 2 }
       pole3:string;  {поле 3 }
    end;
   PRec = ^Rec;
       Rec = Record
             Element : TElement;   {Информационное поле}
             pNext   : PRec;          {Ссылка на следующую компоненту}
             endelement:boolean; {признак последнего элемента}
         End;

var    Fl1:prec;


  Function CreateFirstElement(Value:TElement):PRec; {Создаем первый элемент динамической структуры }
  Procedure AddElement(FirstElement_Value:prec;Value:TElement); {добавление компоненты в конец списка;}
  Function FillListElement(FirstElement:PRec):TstringList; // Процедура вывода элементов в  TstringList
  Procedure DeleteElement(Index:integer;var FirstElement:PRec); {Удалить элемент}
  Function GetElementCount(FirstElement_Value:PRec):integer;{Кол-во элементов в динамической структуре где главный элемент FirstElement_Value }
  Procedure InsertToElement(var FirstElement:PRec; const index:integer; const Value:Telement);
  Procedure DeleteALl(var FirstElement:PRec);{Удалить все элементы }
  Procedure ChangeIndexElement(index1,index2:integer;FirstElement:PRec);
  Function GetElementValue(Index:integer;FirstElement:PRec):Telement; {Получить элемент номер  Index  из структуры где главный элемент FirstElement}
  Function GetMinElementFromMassiv(FirstElement:PRec):integer;
  Procedure SortElementValue2(FirstElement:PRec);
  Procedure SortElementValue(FirstElement:PRec);
  Function GetMaxElementFromMassiv(FirstElement:PRec):integer;