среднее арифметическое элементов непустого списка L

[Chowder]

Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L (TypeElem — real);

[Хыиуду]

Функция или процедура суммирует значения всех элементов списка, пока не дойдет до последнего, потом делит полученную сумму на количество элементов.

[Сионист]

Код: Выделить всё

function summ(Node:TNode):real;
var r:real;
    p:^Node;
begin
     r:=Node.Data;
     p:=Node.Next;
     while p<>NILL do
     begin
          r:=r+p^.Data;
          p:=p^.Next;
     end;
     summ:=r;
end;