Bueno aca te paso el codigo, espero q te sirva. Se carga valores aleatorios en el arreglo x, q representaria las medidas tomadas. La cantidad de medidas es n. A partir de eso aplicas definicion de media cuadratica, armonica y desviacion media para calcularlas.
const n = 20; { cantidad de medidas tomadas }
var i: byte;
x: array[1..n] of byte;
mediacua, mediaarmo, mediaarit, desvmedia: double;
randomize;
for i:= 1 to n do
x[i]:= 1 + random(15); { Asigna valores aleatorios }
{***** Calculo de la Media Cuadratica }
mediacua:= 0;
for i:= 1 to n do
mediacua:= mediacua + x[i]*x[i]; { Suma de los cuadrados }
mediacua:= sqrt(mediacua); { Raiz de esa suma }
writeln('La media cuadratica es: ', mediacua);
{**** Calculo de la Media Armonica }
mediaarmo:= 0;
for i:= 1 to n do
mediaarmo:= mediaarmo + 1 / x[i];
mediarmo:= n / mediaarmo;
writeln('La media Armonica es: ', mediaarmo);
{**** Calculo de la desviacion media }
mediaarit:= 0;
for i:= 1 to n do
mediaarit:= mediaarit + x[i];
mediaarit:= mediaarit / n; { Media Aritmetica para calcular la desv media }
desvmedia:= 0;
for i:= 1 to n do
desvmedia:= desvmedia + abs(x[i] - mediaarit);
desvmedia:= desvmedia / n;
writeln('La desviacion media es: ', desvmedia);
Espero q te haya sido de ayuda, Saludos y mucha Suerte, Adios........
