Дан вектор X (n), вычислить среднюю величину отрицательных элементов - VB

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

Доброго времени. Помогите, пожалуйста, с задачей. Дан вектор X(n), вычислить среднюю величину отрицательных элементов. Есть одно решение, но оно на QBasic...

Решение задачи: «Дан вектор X (n), вычислить среднюю величину отрицательных элементов»

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

                             static void Main(string[] args)
        {
            uint n;
            GetData(out n);
            CreateMassiv(n);
        }
 
        private static void GetData(out uint n)
        {
 
            do { Console.WriteLine("Vvedite kolichestvo chlenov vektora:"); }
            while (!uint.TryParse(Console.ReadLine(), out n));
        }
 
        private static void CreateMassiv(uint n)
        {
            int number = 0, chislo = 0, m;
            Random s = new Random();
            int[] arr = new int[n];
            for (int i = 0; i < n; ++i)
            {
                arr[i] = s.Next(-100, 101);
                Console.Write(arr[i] + "\t");
            }
            for (int i = 0; i < arr.GetLength(0); ++i)
            {
                if (arr[i] < 0)
                {
                    ++number;
                    chislo += arr[i];
                    m = chislo / number;
                    Console.Write("\nChsilo otricatelnuh chlenov:" + number);
                    Console.Write("\nSumma vseh otricatelnuh chlenov:" + chislo);
                    Console.Write("\nSrednya velechina :" + m);
 
                }
                else
                    Console.WriteLine("Otricatelnyh chlenov net");
            }
        }
                        