Информатика, вопрос задал petrroganov , 2 года назад

1)Дан массив из 10 чисел. Найти произведение отрицательных чисел.(visual basic)

Ответы на вопрос

Ответил Аноним

Sub Zadanie()
On Error GoTo Handler

Dim A(9) As Integer
For k = 0 To 9
A(k) = InputBox("Chislo nomer " + CStr(k + 1))
Next k

Dim b As Integer 'proizv
b = 1
Dim m As Boolean 'est li otrits chisla
m = False

For i = 0 To 9

If A(i) < 0 Then
b = b * A(i)
m = True
End If

Next i

If m = False Then MsgBox "Otrits. chisel ne bylo" Else MsgBox (b)

End

Handler:
MsgBox "Oshibka!"
End Sub

petrroganov: так будет работать

petrroganov: а ?

petrroganov: если ещё m=true убрать

petrroganov: Sub Zadanie()
Dim A(9) As Integer, b As Integer
For k = 0 To 9
A(k) = InputBox("Chislo nomer " + CStr(k + 1))
Next k
b = 1
For i = 0 To 9
If A(i) < 0 Then
b = b * A(i)
End If
Next i
MsgBox "OtBet!"&b
End Sub

petrroganov: + CStr(k + 1)) и что это делает

petrroganov: хорошо спасибо)

Аноним: В школьных задачах проверки правильности ввода исходных данных не делается за исключением случая, когда это оговорено условиями задания.