Сделать по ворду, буду !
и файлы для него прикрепил внизу

pascal

Объяснение:

var i, n, mysign, nsign: integer;

   ismon: boolean;

   a: array of integer;

begin

 Write('Введите размер массива: '); ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите Элементы массива: ');

 for i := 0 to n - 1 do ReadLn(a[i]);

 mysign := sign(a[1] - a[0]);

 if mysign >= 0 then mysign := 1;

 ismon := true;

 for i := 2 to n - 1 do

 begin

   nsign := sign(a[i] - a[i - 1]);

   if nsign >= 0 then nsign := 1;

   if nsign <> mysign then ismon := false;

 end;

 if ismon then WriteLn('Массив монотонный') else WriteLn('Массив не монотонный');

end.

           int[,] a = { { 1, 2, 17, 16, 6, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 }, { 1, 2, 17, 8, 16, 455, 867 }, { 1, 2, 17, 8, 5757, 455, 867 } }; //естественно тут ваш двухмерный массив.

           int i = 0;

           int s = 0;

           for (int j = 0; j < a.GetLength(1); j++)

           {

               var t = a[1, j];

               if (t != 0 & t > 15) { i++; }

           }

           Console.WriteLine(i);

           i = 0;

           for (int j = 0; j < a.GetLength(0); j++)

           {

               var t = a[j, 4];

               if (t%2!=0) { i++; s += t; }

           }

           if (i != 0) { Console.WriteLine(s / i); }

           i = 0;

           s = 0;

           for (int j = 0; j < a.GetLength(1); j++)

           {

               var t = a[3, j];

               if (t % 4 == 0) { i++; s += t; Console.WriteLine(t); }

           }

           if (i != 0) { Console.WriteLine(s / i); }