На множестве м={1,3,4,6,7,9,10,15,18,20}задано двуместное отношение s={быть больше 10} 1. составить модель отношения r. 2. представить отношение r в виде списка и матрицы.

using System;

namespace Matrix
{
    class MainClass
    {
        private static int size;  // Размер матрицы

        public static void Main (string[] args)
        {
            size = Int16.Parse(Console.ReadLine ());
            int[,] matrix = new int[size, size];
            for (int i = 0; i < size; i++) {
                for (int j = 0; j < size; j++) {
                    if (i == 0 || j == 0 || i == (size - 1) || j == (size - 1)){
                        matrix [i, j] = 1;
                    } else {
                        matrix [i, j] = 0;
                    }
                }
            }

            /*for (int i = 0; i < size; i++) {  // Вывод матрицы в консоль
                for (int j = 0; j < size; j++) {
                    Console.Write (matrix [i, j]);
                }
                Console.WriteLine ();
            }*/

        }
    }
}

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,0,199);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Write('Искомые числа: ');
  var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99))
      .Where(x->(x div 10+x mod 10).IsEven);
  s.Println;
  Writeln('Количество чисел равно ',s.Count)
end.

Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив [4,7] ***
  65 112  78 133  52 108  39
  73 162  64  31  55 156 107
  14 105  88  55  16 146 143
  19  97  33 138  16  37 198

Искомые числа: 39 73 64 31 55 88 55 19 97 33 37
Количество чисел равно 11