Дан массив B(n,n). найти сумму элементов больших 128
Дан массив B(n,n). найти сумму элементов больших 128
Гость
Ответ(ы) на вопрос:
ГостьНа Visual Basic
Dim B() As Integer, n As Integer, i As Integer, k As Integer, S As Integer
n = Text1.Text
ReDim B(n, n)
S = 0
For i = 1 To n
For k = 1 To n
If B(i, k) > 128 Then S = S + B(i, k)
Next k
Next i
Text2.Text = S
End Sub
Не нашли ответ?
Похожие вопросы