Определить максимальное число из N чисел, введенных с клавиатуры - VBA

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

В VBA в Excel.

Код к задаче: «Определить максимальное число из N чисел, введенных с клавиатуры - VBA»

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

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ