Начертить блок схему вычисления суммы членов ряда S=x+2x+3x+...+(n-1)x+nx для - 10<x<10, n=10.
​

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a.SortedDescending.ToArray; a.Println;
  Writeln('П=',a.Where(k->k mod 7=0).DefaultIfEmpty
      .Aggregate(1,(i,j)->i*j))
end.

Пример
n= 15
80 -59 89 66 -88 -50 -16 -30 -65 -75 28 -51 56 35 36
89 80 66 56 36 35 28 -16 -30 -50 -51 -59 -65 -75 -88
П=54880

begin
  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
  b:=b+Arr(b.Sum); b.Println
end.

Пример
n= 15
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79 -71

begin
  var c:=ArrRandom(ReadInteger('n='),-99,99); c.Println;
  var a:=ReadInteger('a=');
  var b:=c.Where(x->x>a).ToArray;
  Write('B[',b.Count,']='); b.Println
end.

Пример
n= 16
58 -91 12 -48 -42 1 -73 5 -47 99 -80 55 -10 31 -62 0
a= 10
B[5]=58 12 99 55 31

#include <iostream>
using namespace std;

int main() {
    int m,n;
    cout << "m = ";
    cin >> m;
    cout << "n = ";
    cin >> n;
    int a[m][n];
    srand(time(NULL));
    cout << "Случайная матрица порядка "<< m << "x" << n << ":\n";
    for(int i = 0; i < m; i++){
     for(int j = 0; j < n; j++){
      a[i][j]=rand() % 50;
      cout << a[i][j] << " ";
     }
    cout << "\n";
    }
    cout << "элементы в нечетных столбцах:\n";
    for(int j = 0;  j<n; j+=2) {
        for(int i = 0; i < m; i++)
        cout << a[i][j] << " ";
    cout << endl;
    }
}

Пример:
m = 4
n = 5
Случайная матрица порядка 4x5:
16 7 17 27 15 
38 2 4 34 34 
2 2 30 22 16 
7 27 16 46 32 
элементы в нечетных столбцах:
16 38 2 7 
17 4 30 16 
15 34 16 32