Найти произведение элементов массива - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет! Помогите пожалуйста с решением задач: 1. Массив A(100) содержит два нулевых элемента. Номера этих элементов неизвестны. Найти произведение элементов, расположенных между ними. 2. Найти произведение элементов массива A(100), заключенных между единственными минимальным и максимальным элементами (по содержимому) этого массива, включая эти элементы(написать фрагмент программы). Номера минимального и максимального элементов неизвестны. 3. Найти число элементов массива A(100), удовлетворяющих неравенству -0.707*Аmax<=A(n)<=0.707*Amax. Amax - максимальный (по содержимому) элемент массива. Его и необходимо найти. Пожалуйста, помогите, очень надо, а я в этом ничего не смыслю((((

Решение задачи: «Найти произведение элементов массива»

textual
Листинг программы
Sub Dimension()
Dim z1 As Byte
Dim z2 As Byte
Dim i As Byte
Dim a(100)
Dim s As Double
For i = 0 To 99
If a(i) = 0 Then
    z1 = i
    Exit For
End If
Next i
For i = z1 + 1 To 100
If a(i) = 0 Then
    z2 = i
    Exit For
Next i
s = 1
For i = z1 To z2
    s = s * a(i)
Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы