Ти спиш? Якщо ти скажеш "так" то це буде неправдива відповідь
Внутренняя для работы компьютера , внешняя для пользователя компьютера
I=16;
16₁₀=x₁₆
x₁₆=10₁₆
16₁₀=20₈
Sub Zadanie16084380()
' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
' ство положительных элементов i-той строки.
' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
' Z должна быть заполнена нулями
Const N = 4
Dim Y,Z,K
ReDim Y(N, N), Z(N, N), K(N)
S=""
Randomize
For i = 0 To N
K(i) = 0
For j = 0 To N
Y(i, j) = Int(100 * Rnd) - 50
S = S & Y(i, j) & " "
If Y(i, j) > 0 Then
K(i) = K(i) + 1
End If
Next
S = S & vbNewLine
Next
S = S & vbNewLine
For i = 0 To N
For j = 0 To N
if K(i) = 0 then
Z(i, j) = 0
else
Z(i, j) = Y(i, j) / K(i)
end if
S = S & Z(i, j) & " "
Next
S = S & vbNewLine
Next
MsgBox (s)
End Sub
Call Zadanie16084380()
код написан на VBScript