Question

Дан массив B(n,n). найти сумму элементов больших 128

Answer 1

На 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