На 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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку