среднее арифметическое элементов непустого списка L
Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка 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;
Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на c.