Hola Victoria,

El problema es que estás sobreescribiendo la variable prom_sen cada vez (no está guardando los valores de sin(i) para cada valor de i). Lo mejor es crear un vector de ceros y luego rellenarlo con los valores de sin(i) para cada i, y luego promediar el vector creado (es decir, sumar sus coordenadas y dividir entre la longitud del vector). Así:

n=100
seno = rep(0,n+1) #creo un vector de 0's
for (i in 0:n)
{seno[i]=sin(i)} # relleno el vector con los valores de seno

promedio_seno = sum(seno)/(n+1) #sumo las coordenadas de seno y divido entre
# el largo del vector

Otra forma es de una usar la función mean. La función mean toma un vector y lo que devuelve es el promedio de sus coordenadas (es decir mean(x) hace lo mismo que sum(x)/length(x)):

indices = 0:n
s= sin(indices) # me devuelve un vector con el valor de sin(i) para cada indice
mean(s) # calcula el promedio de una

Saludos