Ввести массив А(N) Найти максимальный элемент массива - VB

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

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


textual

Код к задаче: «Ввести массив А(N) Найти максимальный элемент массива - VB»

Option Explicit
Dim N%, i%, max%
 
Private Sub cmdD_Click()
    Randomize Timer
    N = Val(txtN.Text)
    ReDim A(N) As Integer
    ReDim B(N) As Integer
    
    For i = 1 To N
        A(i) = 80 * Rnd
    Next
    
    For i = 1 To N
        If max < A(i) Then max = A(i)
    Next
    
    For i = 1 To N
        B(i) = A(i) - max
    Next
    Print "max ="; max
    
    Print " A()           B()"
    Print
    For i = 1 To N
        Print A(i); "          "; B(i)
    Next
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.429 из 5

Источник