Найти максимальный элемент среди первых 10 элементов массива и его номер - VB

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

напишите пожалуйста код, для того чтобы найти максимальный элемент среди первых 10 элементов массива и его номер. массив x = (-10; 12; 24; -3; 25; 0; -34; -13; 7; 22; 44; -10; 21; -5; -6; -27; 5; -9; -12; 4; ) очень надо. заранее спасибо!)

Код к задаче: «Найти максимальный элемент среди первых 10 элементов массива и его номер - VB»

textual
Sub Task()
      X=Array(-10, 12, 24, -3, 25, 0, -34, -13, 7, 22, 44, -10, 21, -5, -6, -27, 5, -9, -12, 4)
      k%=0
      max=X(0)
      for i%=1 to 9
          If X(i%) > max then
             max=X(i%)
             k%=i%
          End if
      Next i%
      Debug.Print "Макс=";max
      Debug.Print "Инд  =";k%
End Sub

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


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