В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов - VB

Формулировка задачи:

Добрый день. Помогите исправить код в VB 6.0, задача такая: В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim A(10, 10), i, j, S, Sr, K  As Integer
For i = 1 To 10
For j = 1 To 10
A(i, j) = Int(Rnd * 100)
Next j
Next i
For S = 1 To 10
S(S) = 0
K(S) = 0
For K = 1 To 10
If A(K, S) < 0 Then
S(S) = S(S) + A(K, S)
K(S) = K(S) + 1
End If
Next K
Sr(S) = S(S) / K(S)
Next S
Print Sr(S), S(S), K(S)
End Sub

Выдаёт ошибку на строке K(S)=0, а именно "expected array"

Решение задачи: «В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim A(10, 10), i, j, S, Sr, k
Cls
For i = 1 To 10
k = 0: S = 0: Sr = 0
For j = 1 To 10
A(i, j) = Int(Rnd * 101) - 20
If A(i, j) < 0 Then
ForeColor = 255
S = S + A(i, j)
k = k + 1
End If
Print A(i, j); vbTab;
ForeColor = 0
If k > 0 Then Sr = S / k
Next j
Print vbTab; "k = "; k; vbTab; "S = "; S; vbTab; "Sa = "; Sr
Next i
 
End Sub

Оцени полезность:

6 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы