Ввести массив А(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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д