ПАСКАЛЬ. Заполните массив случайными числами в интервале [-50,75] и найдите среднее арифметическое его значений. Решите задачу используя процедуру.

using System;

namespace Global

{

   class Program

   {

       public string[] range = new string[2];

       static void Main(string[] argv)

       {

           Program Obj = new Program();

           Obj.Calculate();

       }

       public void Calculate()

       {

           string iN = Console.ReadLine();

           int n = Convert.ToInt16(iN);

           Console.WriteLine("Введите диапазон (2 числа через пробел)");

           range = (Console.ReadLine().Split(' '));

           int s = 0;

           int b = getArrayItem(1);

           for (int a = getArrayItem(0); a<b+1; a++)  

           {

               if (n % a == 0)

               {

                   s++;

               }

           }

           Console.WriteLine(s);

           Console.ReadKey();

       }

       public int getArrayItem(int item)

       {

           return Convert.ToInt16(range[item]);

       }

   }

}

Объяснение:

/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}