Помогите написать программу на VisualBasic!!! Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы- числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе- ство положительных элементов i-...

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