Написала код алгоритма в visual basic, который правильно считает элементы массива а, в, с и почему то не правильно считает z по формуле с этими найденными числами. в чём ошибка? вот код: private sub command1_click() ' описание переменных dim n as single dim m(15) as single dim a as single dim b as single dim c as single dim z as single ' описание переменных ' вод исходных данных n = 0 m(i) = 0 a = 1 b = 0 c = 0 ' ввод исходных данных ' реализация алгоритма for i = 1 to 15 n = int(text1.text) m(i) = val(inputbox("ввести элементы")) print str(m(i)) next i for i = 1 to 15 if m(i) > 0 and m(i) < > 0 then a = a * m(i) end if next i for i = 15 to 0 step -1 if i mod 2 = 0 then if m(i) > 0 then b = m(i) i = 0 end if end if next i for i = 1 to n step 1 s = s + m(i) next i c = s / n z = с + (а + в/ а * в + 1) ' реализация алгоритма ' вывод результата text2.text = str(a) text3.text = str(b) text4.text = str(c) text5.text = str(z) ' вывод результата end sub
