подсчитать кол-во отрицательных и сумму положительных элементов!
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 iDim 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
h34r:
, а делать самому это абсолютно некогда-тем более знаю, что в будущем мне это не пригодится (но долг по контрольной в итоге надо убирать), и препод ниче на дает а предоставленой методичке хрен что поймешь. Так, что если у кого-то в этой области больше тяму, то прошу хелпа! 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
