В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов - VB
Формулировка задачи:
Добрый день. Помогите исправить код в VB 6.0, задача такая:
В каждой строке двумерного массива вычислить количество, сумму и среднеарифметическое отрицательных элементов.
Выдаёт ошибку на строке 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д