Помножити матрицю АМхN, на вектор R, з розмірністю n за формулою: Ui= , де і=1,2,m, j=1,2,n. Вказівки: на екран вивести попередню матрицю А, вектор R (задати самостійно) та результуючий вектор U.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // начало расчетов
  var s:=0;
  for var i:=0 to n-1 do s+=a[i,n-i-1];
  Writeln('1: S=',s);
  Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
  Write('3: Произведение элементов: ');
  a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
  var p:BigInteger:=1;
  for var i:=0 to n-1 do p*=a[i,i];
  Writeln('4: П=',p);
end.

1)

#include < iostream >

#include < cmath >

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   double sum=0;

   int arr[6] = {12, 15, 20, 25, 59, 79};

   for(int i = 0; i < sizeof(arr)/ sizeof(arr[0]); i++)

       sum += arr[i];

   cout << sum/sizeof(arr)/ sizeof(arr[0]);

}

2)

#include < iostream >

#include < cmath >

using namespace std;

int fac(int n)

{

   if(n == 1)

       return 1;

   return n * fac(n-1);

}

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n;

   cin >> n;

   cout << fac(n);

}