G
Gost
Люди! Помогите чайнику, пожалуйста, решить задачу для Visual Basic For Applications :
В массиве С
подсчитать кол-во отрицательных и сумму положительных элементов!
В массиве С

Dim C(100) As Integer
Dim i, n, x, y As Integer
x = 0
y = 0
n = 100
For i = 0 To n
If C(i) >= 0 Then x = x + C(i)
Else y = y + 1
End If
Next i
Dim S(20) As Integer
Dim i, n, Count, Sum As Integer
Found As Bool
Sum = 0
Count = 20
n = XXXX <- то что надо ввести
For i = 0 To Count - 1
If Found then
Sum = Sum + C(i)
End If
If S(i) = n Then
Found = True
End If
Next i
Dim X(6, 4) As Integer
Dim Y(7, 3) As Integer
Dim i, j, Sum1, Sum2 As Integer
For i = 0 To 5
for j = 0 3
Sum1 = Sum1 + X(i, j)
Next j
Next i
For i = 0 To 6
for j = 0 2
Sum2 = Sum2 + Y(i, j)
Next j
Next i
Print Sum1 / 24
Print Sim2 / 21
Dim A(10) As Integer
Dim i, Min, Count As Integer
Count = 0
Min = -1
For i = 0 To 9
If A(i) < Min then
Min = A(i)
Count = 1
End If
if A(i) = Min then
Count = Count + 1
End If
Next i
Print Min, Count
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab