Question

пусть вводится n чисел с клавиатуры определить кол-во нечетных чисел в массиве и произведение отрицательных чисел (составить программу на бейсике) СРОЧНО 98 БАЛЛОВ!!!

Answer 1

Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i

For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub

Answer 2

Хорошо, вот пример программы на BASIC для решения вашей задачи:

BASICCopy code
10 INPUT "Введите количество чисел (n): ", n
20 DIM numbers(n)
30 oddCount = 0
40 negativeProduct = 1

50 FOR i = 1 TO n
60   INPUT "Введите число: ", numbers(i)
70   IF numbers(i) MOD 2 <> 0 THEN
80     oddCount = oddCount + 1
90   END IF
100  IF numbers(i) < 0 THEN
110    negativeProduct = negativeProduct * numbers(i)
120  END IF
130 NEXT i

140 PRINT "Количество нечетных чисел: "; oddCount
150 PRINT "Произведение отрицательных чисел: "; negativeProduct

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

Надеюсь, эта программа поможет вам решить задачу! Удачи!