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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы