Определить максимальное число из N чисел, введенных с клавиатуры - VBA
Формулировка задачи:
В VBA в Excel.
Решение задачи: «Определить максимальное число из N чисел, введенных с клавиатуры»
textual
Листинг программы
Sub Александр9797_max()
Dim A(1 To 30) As Integer
Dim Max As Integer
Dim J As Byte, N As Byte
N = InputBox("Сколько элементов в массиве?")
For J = 1 To N
A(J) = InputBox("Введите очередной элемент")
Next J
Max = A(1)
For J = 1 To N
If A(J) >= Max Then Max = A(J)
Next J
MsgBox "Максимум = " & Max
Debug.Print "Max ="; Max
End Sub
'Например, вводим N = 3
'13; 29; 10
'Max = 29