Вопрос по информатике:
1)Дан массив из 10 чисел. Найти произведение отрицательных чисел.(visual basic)
- 09.02.2018 10:43
- Информатика
- remove_red_eye 17239
- thumb_up 40
Ответы и объяснения 1
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
- 01.01.1970 00:00
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.