Задали задачку вот, не как не могу допетрить как написать эту программку.

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

Вообще догнать не могу, вот в общем:

[начало]
Dim x (133) As Integer
Dim a, min As Integer
min = x (1)

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