Ввести целочисленный массив A(N)... - VB

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

Ввести целочисленный массив A(N). Найти минимальное значение среди элементов с четными номерами и максимальное значение среди элементов с нечетными номерами.Добавлено через 58 минут
Private Sub UserForm_Click() 
Dim a(4) As Integer 
Dim Max, Min As Integer 
Dim i As Byte 
For i = 1 To 4 
a(i) = InputBox("Введите число для " & i & "-го элемента массива ", " Ввод элементов массива ") 
Max = a(1) 
Min = a(2) 
If (a(i) Mod 2) = 0 Then 
      If Min > a(i) Then 
      Min = a(i) 
      Else: Min = a(2) 
      End If 
      Else: If a(i) > Max Then a(i) = Max 
    End If 
      Next 
MsgBox "Min=" & Min & Chr(13) & "Max=" & Max 
End Sub
составила вот такую программу...но она выводит просто минимальное и максимальное....помогите пожалуйста...


textual

Код к задаче: «Ввести целочисленный массив A(N)... - VB»

Dim a() As Integer, n As Integer
Dim Max As Integer, Min As Integer 
Dim flgMax As Boolean, flgMin As Boolean
Dim i As Byte 
n = InputBox("Введите N", " Ввод N ") 
redim a(n)
For i = 1 To n 
  a(i) = InputBox("Введите число для " & i & "-го элемента массива ", " Ввод элементов массива ") 
Next 
flgMax = false
flgMin = false
For i = 1 To n
if a(n) mod 2=0
  if not flgMax then
     Max = a(i)
     flgMax =True
  else
    If Max < a(i) Then Max = a(i) 
  end if
else
  if not flgMin  then
     Min = a(i)
     flgMin =True
  else
    If Min > a(i) Then Min = a(i) 
  end if
end if
Next i
MsgBox "Min=" & Min & Chr(13) & "Max=" & Max
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы