Скласти програму мовою Паскаль для табулювання функції у(х) на проміжку [-5;4] з кроком, який визначити так: номер варіанту поділити на 10.

Я конечно не против дополнительных , но я вам уже дал ответ.
#include <iostream>
#include <array>
#include <numeric>
using namespace std;

const size_t N = 10;

int main()
{
    size_t sum = 0;
    array<int, N> a = { 1, 5, 9, 6, 3, 0, 1, 4, -2, 4 };
    cout << "Count: ";
    cout << accumulate(a.cbegin(), a.cend(), 0, [&sum](size_t count, const int
num) {
                                                    if (num > 1 && num < 5) {
                                                        ++count;
                                                        sum += num;
                                                    }
                                                    return count;
                                                });
    cout << " Sum: " << sum << endl;
}

#include <iostream>
#include <array>
#include <random>
using namespace std;

mt19937 gen { random_device()() };
uniform_int_distribution<> uid(-20, 20);

constexpr size_t N = 5;

int main()
{
    int sum = 0;
    array<array<int, N>, N> a;
   
    for (auto &i : a) {
        for (auto &j : i) {
            if ((j = uid(gen)) < 0) {
                sum += j;
            }
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << endl;
    a[1][2] += sum;
    for (const auto &i : a) {
        for (const auto &j : i) {
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << "Sum: " << sum << endl;
}