Нужно сложить все числа и разделить на количество самих чисел. Например среднее арифметическое чисел 8, 2 и 20 будет 10, потому что (8+2+20):3=10
<span>I = m*log2(N), </span>
<span>где m - количество символов(букв) в сообщении, N - мощность алфавита, т.е. количество символов (букв) в нем. </span>
<span>1) оценка количества информации в первом символе сообщения </span>
<span>N1=2, так как могут быть только 2 разных символа алфавита племени мульти: А или О, m1=1 </span>
<span>I1=m1*log2(N1)=1*log2(2)=1 бит; </span>
<span>2) оценка количества информации в остальных 8-1=7 символах сообщения </span>
<span>N2=32, так как могут быть 32 разных символа всего алфавита племени мульти, m2=7 </span>
<span>I2=m2*log2(N2)=7*log2(32)=35 бит; </span>
<span>3) оценка количества символов информации в сообщении </span>
<span>I=I1+I2=1+35=36 бит</span>
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>
Var m,n:integer;
Begin
write('Введите m и n: ');
readln (m,n);
while m<>n do
begin
If m>n then m:=m-n
else n:=n-m
end;
write ('НОД=',m)
end.
<span>На место "..." </span>ставим "<>"
12 часов после полудня.
То есть 24:00.