Logre que funcionara el código para n valores ingresados secuencialmente (uno después del otro), pero no sabría como hacer para que funcione con una lineal de n valores ingresados de una sola vez.
adjunto el código para que lo visualicen:
program desviacion;
var
prueba, entrada1, total ,totalcuadrado, entrada2, promedio, desviado, cantidad: real;
begin
entrada1:=0.0;
entrada2:=0.0;
promedio:=0.0;
desviado:=0.0;
cantidad:=1.0;
writeln ('ingrese un valor');
readln (entrada1, entrada2);
writeln (entrada1,' ', entrada2);
total:=entrada2;
totalcuadrado:=sqr(entrada2);
writeln ('este es el total ', total, ' y este es el total cuadrado', totalcuadrado);
while (entrada1>=0) and (entrada2>=0) do
begin
writeln ('entre aca');
cantidad:=cantidad+1.0;
total:=total+entrada1;
totalcuadrado:=totalcuadrado+sqr(entrada1);
writeln ('ingrese el siguiente valor');
readln (entrada1);
end;
promedio:=total/cantidad;
writeln ('este es el promedio ', promedio, 'este es el total cuadrado ', totalcuadrado, 'esta es la cantidad', cantidad);
desviado:=sqrt((totalcuadrado/cantidad)-(sqr (promedio)));
writeln (desviado);
readln (prueba);
end.