Ввести массив А(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()"
- For i = 1 To N
- Print A(i); " "; B(i)
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
