Все элементы заданного массива разделить на сумму элементов массива - VB

Формулировка задачи:

3. Ввести массив А(N). Все элементы массива разделить на сумму элементов массива. Вывести преобразованный массив. предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.

Код к задаче: «Все элементы заданного массива разделить на сумму элементов массива - VB»

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

15   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы