Массивы: максимум среди отрицательных чисел - VB

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

Задали задачку вот, не как не могу допетрить как написать эту программку. Есть массив который состоит из 133 элементов, целые, и нужно написать программу для нахождения типа элемента, среди положительных чисел, так же максимум среди отрицательных чисел. Вообще догнать не могу, вот в общем: начало

 Dim x (133) As Integer
 Dim a, min As Integer
 min = x (1)

тут тперь так же находим максимум? или вообще как? помогите пожалуйста буду очень благодарен.

Решение задачи: «Массивы: максимум среди отрицательных чисел»

textual
                            Листинг программы 
                        

                            Dim i As Integer  ' объявление переменной i
Dim x(1 To 133) As Integer ' так объявляется массив, если он начинается с 1
' чтобы программа работала, надо заполнить сначала массив x()
max=0
For i =1 To 133 'цикл
   If x(i)>0 Then ' это условие, выбираются только положительные числа
      If max<x(i) Then max=x(i) ' а уже здесь ищется максимум
   End If
Next i
Print "max="; max ' только после цикла печатается результат
                        