Дан одномерный массив а(м). вывести массив на экран. найти среднее арифметическое положительных элементов. вывести результат на экран.

Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) . перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. для этого необходимо в процедуре text1_change и text2_change ввести такой код: private sub text1_change () ‘происходит при изменении текстового поля if len (text1.text)> 16 then msgbox “много знаков” ‘если text1> 16, то выводим сообщение end sub private sub text2_change () if len (text2.text)> 16 then msgbox “много знаков” end sub теперь напишем код для сложения, вычитания и умножения: private sub command1_click () ‘сложение text3.text=val (text1.text) + val (text2.text) end sub private sub command2_click () ‘вычитание text3.text=val (text1.text) – val (text2.text) end sub private sub command3_click () ‘умножение text3.text=val (text1.text) * val (text2.text) end sub с кодом для деления придётся немного пораздумать. когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. для её предотвращения придётся создать условие: private sub command4_click () ‘деление if text2.text =”” then msgbox “деление на ноль” if text2.text = 0 then msgbox “деление на ноль” if text2.text< > ”” then text3.text=val(text1.text)/val(text2.text) if text2.text< > 0 then text3.text=val(text1.text)/val(text2.text) end sub осталось написать процедуру для кнопки «выход» : private sub command5_click () ‘выход end end sub для создания других операций с числами можно воспользоваться обозначениями функций: sqr (число) – служит для извлечения квадратного корня например: sqr (16) = 4 основание ^ степень – возведение числа в степень например: 6 ^ 2 = 36 sin (число) – синус числа например: sin (60) = -0, 304810621102217 cos (число) – косинус числа например: cos (60) = -0, 952412980415156 tan (число) –тангенс числа например: tan (60) = 0,320040389379563