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
Корректные выделены жирным:
22SenturyFox — имя не может начинаться с цифры
!!rat — имя не может начинаться с восклицательного знака
ab
copy#3 — имя включает в себя символ комментария, т.е. #3 — это уже комментарий
PURPLE
_next
Per1fec1CoDe
iNDex
Agr15