Определить наибольший элемент массива, состоящего из 10 членов

Question

Определить наибольший элемент массива, состоящего из 10 членов

Answer 1

Dim Massiv(9) As Integer
Dim Max As Integer       
Dim x As Integer       

Max = Massiv(0)       
For x = 1 To 9
            If Massiv(x) > Max Then Max = Massiv(x)       
Next       
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(Max)

Comments

что это?

---

Visual Basic