На отрезке [-pi; pi] с шагом pi/10 протабулировать функцию sin^3(x)+cos^2(x), построить
и отформатировать ее график. Сделать в excel.

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

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(10,10,-75,132);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes.Where(t->t[0].Between(100,999));
  foreach var t in s do Write('[',t[1]+1,',',t[2]+1,'] ')
end.

Пример
*** Исходный массив ***
  -3 -22 -17 105  33 -73  37 109  83 106
 -38  12 108  25  -8   0  97 -56 -24  10
  78 108   8   7  89 -54 108   3  24  86
 -31 -39  12 129  38  90  56  94 -26  84
  24  -4 -14   9  87 126  82 129  15 104
  20  68  61 -52  79  22 102 109 -59  12
 -48 -41   9 129  61 -74 132 112 120  34
  76 -72 103  25 118   6  47 132  53  95
  -4 112 120  53 -10  33  33 -11 -25 -60
 121  80  78  94  57 -10 120 -11  80  85

[1,4] [1,8] [1,10] [2,3] [3,2] [3,7] [4,4] [5,6] [5,8] [5,10] [6,7] [6,8] [7,4] [7,7] [7,8] [7,9] [8,3] [8,5] [8,8] [9,2] [9,3] [10,1] [10,7]

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var rmatr:=MatrRandom(n,m,-99,99);
  rmatr.Println(4); Writeln(4*m*'-');
  var max:=rmatr.ElementsByRow.Max;
  var s:=0;
  foreach var row in rmatr.Rows do
    if row.Contains(max) then s+=row.Sum;
  Writeln('Сумма равна ',s)
end.

Пример
Количество строк и столбцов в матрице: 8 7
*** Исходная матрица ***
 -50 -48   6   5  54 -16  42
 -96 -23 -35  46 -39 -44 -15
   2 -67  99  50 -53  68 -61
 -77 -13 -76 -59  38 -20   4
  97 -82  -1  20 -81 -77  -2
 -51  87  34  -5  14 -60  91
 -53  24   2  98 -98  29 -84
  60  28  18  68   8  28 -73

Сумма равна 38