Задача 5. Вычислить среднее значение и дисперсию для заданного одномерного массива наблюдений X(k)

1. Постановка задачи.

Вычислить среднее значение и дисперсию для заданного одномерного массива наблюдений X(k)

2. Математическая модель.

sr:=sum/k

sum:= x[1]+…+x[k]

3. Блок-схема.

4. Список идентификаторов.

Имя	Смысл	Тип
X	Массив данных	Real
Sum	Сумма	Real
D	sin(x+y)	Real
Sr	Результат вычисления	Real
I		Integer
K		Integer

5. Код программы.

program z5;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, math;

var x:array of real;

i, k:integer;

sum, d, sr:real;

begin

writeln ('Введите кол-во эл-тов массива');

read (k);

setlength (x, k+1);

for i:= 1 to k do

begin

read (x[i]);

sum:= sum+x[i];

end;

sr:= sum/k;

sum:= 0;

for i:= 1 to k do

sum:= sum+abs(x[i]-sr);

d:=1/(k-1)*sum;

writeln (d:0:3);

readln ();

end.

6. Результаты выполнения программы.