Определите, верно ли, что отрицательных членов в последовательности, больше, чем положительных - VB

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

По одномерным: 1)Запишите число +1 вместо максимального элемента массива (х1, х2, ..., х30), и число –1 вместо минимального. Выведите исходный и новый массивы. 2) Даны натуральное число n, действительные числа а1, a2, …, аn. Определите, верно ли, что отрицательных членов в последова- тельности а1, a2, …, an, больше, чем положительных? По двухмерным: Найдите количество элементов, значения кото- рых больше 10 в заштрихованной области матрицы: (матрица 3*3 заштрихованы след.элементы: 1.1, 1.3, 2.1, 2.2., 2.3, 3.1, 3.3) Заранее огромное спасибо!! очень надо решить!!

Решение задачи: «Определите, верно ли, что отрицательных членов в последовательности, больше, чем положительных»

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

                            Dim A(3, 3) As Single, count As Single 'Массив 3 на 3, переменная-количество
count = 0 
For i = 1 To 3
For j = 1 To 3
A(i, j) = 100 * Rnd - 50 'Случайная генерация [-50;50]
If (i <> 1 And j <> 2) Or (i <> 3 And j <> 2) Then 'Если элемент не (1,2) или не (3,2) тогда
    If A(i, j) > 10 Then count = count + 1 'Если он больше 10, то увеличим на 1
End If
Next j
Next i
MsgBox count
                        