Слідування-це фрагмент алгоритму,в якому обов'язково причому кожна тільки разу

#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;
}

ответ: Pascal последняя версия, задача только на хз почему 1 неправильно

program C1;

var

 N, x: int64;

begin

 read(x);

 read(N);

 if (N > 0) and (N <= abs(x)) then  

   x := x + n

 else if (N > 0) and (N >= abs(x)) then

   x := x + n + 1;

 if (N < 0) and (abs(N) <= abs(x)) then

   x := x - abs(N)

     else

 if (N < 0) and (abs(N) >= abs(x)) then

   x := x - abs(N) - 1;

 if x <> 0 then

 writeln(x)

 else begin

   if N > x then

     x := x +1

   else

     x := x -1;

   writeln(x);

 end;

end.

Объяснение: