Sub z()
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function
1) 22212 - 8/2=4 4/2=2 2/2=1 12 12/2=6, т.е. 8 преобразуется в 6
2) 1-12-6-3-32-16, т.е 12212
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
1. 1 символ кодируется 16-ю битами. (16=2^4)
3 *2^13 бит : 2^4 бит = 3*2^9 =3*512 =1536 символов в тексте.
2. 1 символ кодируется 8-ю битами.
1 байт =8 бит
1 Кбайт =1024 байт
F = 5*25*40*8 = 40 000 бит = 5 000 байт = 4,8828 Кбайт≈ 5 Кбайт
53,63,73,83,93 = ВСЕ ЧИСЛА