Заполнить массив из 1000 элементов случайными числами

@Cyril · Регистрация: 04.11.2014

Студворк — интернет-сервис помощи студентам

Заполнить массив из 1000 элементов случайными числами. Найти мат ожидание и дисперсию

@CodeR · 03.12.2014, 13:57

Pascal

Const n=1000;
Var A:array[1..n] of integer;
    mx,dx:real;
    i:integer;
Begin
    For i:=1 to n do
     A[i]:=random(101);
    For i:=1 to n do
    Begin
      mx:=mx+A[i];
      dx:=dx+sqr(A[i]);
    End;
    mx:=mx/n;
    dx:=(dx/n) - sqr(mx);
    writeln('M(X): ',mx:0:2);
    writeln('D(X): ',dx:0:2);
    readln;
End.

Вроде так.

@Cyril 0 / 0 / 0 Регистрация: 04.11.2014 Сообщений: 7
		1
	Заполнить массив из 1000 элементов случайными числами 03.12.2014, 12:25. Показов 5297. Ответов 1 Метки нет (Все метки) Заполнить массив из 1000 элементов случайными числами. Найти мат ожидание и дисперсию 0

	03.12.2014, 13:57

Опции темы

Заполнить массив из 1000 элементов случайными числами

Решение