2 Б. Определите выражение, которое соответствует схеме:
В выражении используйте скобки и знаки &и |, для обозначения конъюнкции и дизъюнкции соответсвенно,
отрицание пишите частицей НЕ.
Ввсе буквы пишите в английской раскладке и заглавные.
Знаки &, | и НЕ выделяйте пробелами с обеих сторон.

        static void Main()
        {
            int[,] arr = new int[3, 5];
            byte i = 0, j, nech = 0;
            while (i < 3)
            {
                j = 0;
                while (j < 5)
                {
                    Console.Write("arr[{0}, {1}] = ", i + 1, j + 1);
                    arr[i, j] = Int32.Parse(Console.ReadLine());
                    if (arr[i, j++]  2 == 1) nech++; //Сразу считаем нечётные элементы
                }
                Console.WriteLine();
                i++;
            }
            Console.WriteLine();
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            Console.WriteLine();
            int buf = arr[0, 2]; //Меняем местами
            arr[0, 2] = arr[2, 1];
            arr[2, 1] = buf;
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            long p = 1;
            for (j = 0; j < 5; j++)
                p *= arr[1, j];
            Console.WriteLine("Произведение эл. второй строк равно " + p);
            Console.WriteLine("Тут {0} несчётных элементов", nech);
            Console.ReadKey(false);
        }

Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, im, jm, mx, e: integer;

begin
  Randomize;
  mx := -1000;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

 -12 -36 -41
   7 -45  12
 -23  48   0
  -1  31  14

Максимальный по модулю элемент a[3;2]=48