Question

Даны три действительных числа. Записать алгоритм вычисления среднего
арифметического и дисперсии этих чисел (дисперсия есть отношение суммы квадратов
разностей между числами и средним арифметическим этих чисел к количеству чисел,
уменьшенному на единицу).

Answer 1

program raf105;

var

 a,b,c,sAri,disp: real;

begin

 write('Введите 3 числа: ');

 readln(a,b,c);

 sAri:= (a+b+c) / 3;

 disp:= (power(a-sAri,2) + power(b-sAri,2) + power(c-sAri,2)) / 2;

 writeln('Среднее арифметическое: ',sAri);

 writeln('Дисперсия: ',disp);

end.

PascalABC