ЗАДАНИЕ С МАССИВАМИ - VB
Формулировка задачи:
Дан массив В (n). Найти максимальный элемент и все элементы до
него заменить на 7
Решение задачи: «ЗАДАНИЕ С МАССИВАМИ»
textual
Листинг программы
Dim n, B(), max, txt
n = InputBox("n"): ReDim B(1 To n)
For i = 1 To n
B(i) = Int(100 * Rnd - 50)
txt = txt & B(i) & " "
Next i
txt = txt & Chr(13)
max = B(1)
For i = 2 To n
If B(i) > max Then max = B(i)
Next i
i = 1
Do While B(i) <> max
B(i) = 7
i = i + 1
Loop
For i = 1 To n
txt = txt & B(i) & " "
Next i
MsgBox txt
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д