Найти произведение элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д