Question

Написать программу для оценки математического ожидания и дисперсии в паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=new real[] (-3.0,-7.0,0.0);
  var p:=new real[] (0.1,0.2,0.7);
  var Mx:=x.Zip(p,(a,b)->a*b).Sum;
  var Mx2:=x.Zip(p,(a,b)->a*a*b).Sum;
  var Dx:=Mx2-Sqr(Mx);
  Writeln('Математическое ожидание ',Mx,', дисперсия ',Dx)
end.

Результат
Математическое ожидание -1.7, дисперсия 7.81