Question

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

Answer 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

Answer 2

Для нахождения произведения отрицательных чисел в массиве из 10 чисел на Visual Basic, вам потребуется выполнить следующие шаги:

1. Создайте массив из 10 чисел и заполните его значениями. 2. Инициализируйте переменную `product` со значением 1. Эта переменная будет использоваться для хранения произведения отрицательных чисел. 3. Пройдитесь по каждому элементу массива и проверьте, является ли число отрицательным. 4. Если число отрицательное, умножьте его на значение переменной `product`. 5. После завершения цикла, выведите значение переменной `product`.

Вот пример кода на Visual Basic, который реализует описанный алгоритм:

Dim numbers(9) As Integer ' Создание массива из 10 чисел
numbers = {1, -2, 3, -4, 5, -6, 7, -8, 9, -10} ' Заполнение массива значениями

Dim product As Integer = 1 ' Инициализация переменной product

For Each number As Integer In numbers ' Перебор каждого элемента массива
    If number < 0 Then ' Проверка, является ли число отрицательным
        product *= number ' Умножение числа на product
    End If
Next

Console.WriteLine("Произведение отрицательных чисел: " & product) ' Вывод произведения отрицательных чисел

После выполнения этого кода, вы получите произведение всех отрицательных чисел в массиве.

Примечание: В предоставленном коде используется предположение о том, что массив уже заполнен значениями. Если вам нужно ввести значения с клавиатуры, вам потребуется добавить соответствующий код для чтения значений в массив.