Склавиатуры вводят 5 чисел, определить среднее арифметическое положительное двузначных чисел. на языке pascale

1) Microsoft PowerPoint - потому что там легче и лучше всего создавать презентации;

2) Microsoft Word - возможность форматирования и редактирования текста;

3) Adobe Photoshop / Adobe Illustrator / Photodraw - прикладные программы для создания рекламы, картинок и т.п.;

4) Microsoft Excel, Microsoft Access - таблицы либо базы данных, и там и там возможно создавать отчёты по сбору налогов;

5) Windows MovieMaker / Adobe Premiere Pro / Sony Vegas - программы для создания фильма о чем-то;

6) Notepad++ / Visual Studio Code / Atom - это программы для удобного создания кода программ.

7) браузеры - для поиска магазинов с игровыми компьютерами.

Таблица (Кто - Что делает - Какие программы можно использовать):

Ученик - сбор информации и подготовка презентации - Microsoft PowerPoint (браузеры для поиска информации);

Писатель - пишет новый роман - Microsoft Word;

Работники  фирмы - готовят рекламу - Adobe Photoshop / Adobe Illustrator / Photodraw;

Сотрудники налоговой инспекции - готовят отчёт по сбору налогов - Microsoft Excel, Microsoft Access;

Я - создаю фильм о достопримечательностях любимого города - Windows MovieMaker / Adobe Premiere Pro / Sony Vegas;

Программист - пишет код программы на ЯП С++ - Notepad++ / Visual Studio Code / Atom;

Друг - выбирает новый игровой компьютер - браузеры.

Возможно, не самое эффективное решение
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    using namespace std;
    const int N = 10;
    int A[N];
    srand(time(0));
    for (int i = 0; i < N; ++i)
        A[i] = rand() % 201 - 100;
   
    //Вывод исходного массива на экран
    for (int i = 0; i < N; ++i)
        cout << A[i] << "  ";
    cout << endl;

    //Подсчитаем количества положительных и отрицательных
    int kpos = 0, kneg = 0;
    for (int i = 0; i < N; i++)
        if (A[i] > 0)
            ++kpos;
        else
            ++kneg;

    int * Apos = new int[kpos];
    int * Aneg = new int[kneg];
    int pos = 0, neg = 0;
    for (int i = 0; i < N; ++i)
        if (A[i] > 0)
            Apos[pos++] = A[i];
        else
            Aneg[neg++] = A[i];

    for (int i = 0; i < N; ++i)
        if (i < kpos)
            A[i] = Apos[i];
        else
            A[i] = Aneg[i - kpos];

    delete[] Apos;
    delete[] Aneg;

    //Вывод полученного массива на экран
    for (int i = 0; i < N; ++i)
        cout << A[i] << "  ";
    cout << endl;
    return 0;
}