Все элементы заданного массива разделить на сумму элементов массива - VB
Формулировка задачи:
3. Ввести массив А(N). Все элементы массива разделить на сумму элементов массива. Вывести преобразованный массив.
предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.
Решение задачи: «Все элементы заданного массива разделить на сумму элементов массива»
textual
Листинг программы
Option Explicit Dim N%, i%, Sum% Private Sub cmdD_Click() Randomize Timer N = Val(txtN.Text) ReDim A(N) As Single ReDim B(N) As Single For i = 1 To N A(i) = 80 * Rnd Next For i = 1 To N Sum = Sum + A(i) Next For i = 1 To N If Sum <> 0 Then B(i) = A(i) / Sum Next Print " A()"; Tab(12); "B()" Print For i = 1 To N Print Format(A(i), "00.000"); Format(B(i), " 0.00000") Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д