function task1
x = sort(arr200(1));

j = 0;
n = [];
k = 1;
m = 0;
N = 200; % по условию

x;

for i = 2:200
  if x(i) == x(i-1)
    m = m + 1;
  else
    k = k+1;
    m = 0;
  endif
  n(k) = m + 1;
  w(k) = n(k)/N;
endfor


% в массиве n[] содержатся каличества значений x* (например, в n(1)
% написано, сколько нулей, в n(2) - сколько единиц и тд

% в массиве w[] содержатся значения относительных частот

X = 0; % выборочное среднее
Y = 0;
k = 0;
for i = 1:200
  k = x(i)+1;
  X = X + x(i)*n(k);
endfor
X = 1/N * X;

for i = 1:200
  k = x(i)+1;
  Y = Y + x(i)*w(k);
endfor

X
Y

endfunction

function arr = arr200(x)
  arrp = [];
  arrb = [];
  arrg = [];
  V = 17;
  n = 5 + mod(V, 16);
  p = 0.1 + 0.01*V;
  lambda = 0.5 + 0.1*V;
  for i = 1:200
    arrb(i) = binornd(n, p);
    arrg(i) = geornd(p);
    arrp(i) = poissrnd(lambda);
  endfor

  if x == 1
    arr = arrb;
  elseif x == 2
    arr = arrg;
  elseif x == 3
    arr = arrp;
  endif
endfunction