Алгоритм :1)Подсчитать сумму чисел.2)Подсчитать количество чисел 3)Разделить сумму чисел на их количество Вот если надо прогаvar i,N:integer;srzn,sum:real;beginsum:=0;N:=0;for i:= 0 to 10 do beginsum:=sum+i;N:=N+1;srzn:=sum/N;end;write(srzn:0:5);end.