Помогите решить задачу))
Элементы массивов А, В, Z вычисляются по формулам: A(i)= 5.5*i; B(i)= A(i)-i; Z(i)= B(i)/A(i); 1<=i<=6. Найти максимальный элемент массива А, минимальный элемент массива В и сумму элементов массива Z, значение которых больше 0,3. Вывести элементы массивов A,B и Z на форму
Код:
Dim a(6)
Dim b(6)
Dim z(6)
Dim i
Dim aMax
Dim bMin
Dim zSum
for i = 1 To 6
a(i) = 5.5*i
If i = 1 Then aMax = a(i)
If aMax < a(i) Then aMax = a(i)
b(i) = a(i)-i
If i = 1 Then bMin = b(i)
If bMin > b(i) Then bMin = b(i)
z(i) = b(i)/a(i)
If z(i) > 0.3 Then zSum = zSum + z(i)
WScript.Echo "----------"
Next
WScript.Echo aMax,bMin,zSum
Dim b(6)
Dim z(6)
Dim i
Dim aMax
Dim bMin
Dim zSum
for i = 1 To 6
a(i) = 5.5*i
If i = 1 Then aMax = a(i)
If aMax < a(i) Then aMax = a(i)
b(i) = a(i)-i
If i = 1 Then bMin = b(i)
If bMin > b(i) Then bMin = b(i)
z(i) = b(i)/a(i)
If z(i) > 0.3 Then zSum = zSum + z(i)
WScript.Echo "----------"
Next
WScript.Echo aMax,bMin,zSum
Dim b(6)
Dim z(6)
Dim i
Dim aMax
Dim bMin
Dim zSum
for i = 1 To 6
a(i) = 5.5*i:WScript.Echo "a",a(i)
If i = 1 Then aMax = a(i)
If aMax < a(i) Then aMax = a(i)
b(i) = a(i)-i:WScript.Echo "b", b(i)
If i = 1 Then bMin = b(i)
If bMin > b(i) Then bMin = b(i)
z(i) = b(i)/a(i):WScript.Echo "z", z(1)
If z(i) > 0.3 Then zSum = zSum + z(i)
WScript.Echo "----------"
Next
WScript.Echo aMax,bMin,zSum