Проверить, является ли данная квадратная матрица симметричной (относительно главной диагонали заметим, что в этом случае для симметричных элементов выполняется условие: a(i, j)=a(j, )

CLS
RANDOMIZE TIMER
INPUT "n = ", n
DIM A(n, n)
PRINT "1 - BBECTI ELEMENTbI C KLABbI"
PRINT "2 - RANDOM"
INPUT BBOD
IF BBOD = 2 THEN
  FOR i = 1 TO n
      FOR j = 1 TO n
          A(i, j) = RND * 21 - 10
      NEXT j
  NEXT i
ELSE
  FOR i = 1 TO n
      FOR j = 1 TO n
          PRINT "A["; i; ","; j; "] = ";
          INPUT "", A(i, j)
      NEXT j
  NEXT i
END IF
CLS
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "###.##"; A(i, j);
        PRINT " ";
    NEXT j
    PRINT
NEXT i
C = 1
FOR i = 1 TO n
    FOR j = 1 TO n
        IF A(i, j) <> A(j, i) THEN
          C = 0
        END IF
    NEXT j
NEXT i
IF C = 1 THEN
  PRINT "DA"
ELSE
  PRINT "NET"
END IF
END

1. МОДЕЛИРОВАНИЕ КАКМЕТОД ПОЗНАНИЯМОДЕЛИРОВАНИЕ ИФОРМАЛИЗАЦИЯ2. Ключевые слова • модель • моделирование • цель моделирования • натурная (материальная) модель • информационная модель • формализация • классификация информационныхмоделей3. Модели и моделирование Модель - это новый объект, который отражает Одним из методов познания объектов окружающего мирасущественные с точки зрения цели моделирования признакиявляется моделирование, состоящее в создании иизучаемого предмета, процесса или явления.исследовании упрощённых заменителей реальных объектов. Моделирование - метод познания, заключающийся вОбъект-заменитель принято называть моделью, а исходныйсоздании и исследовании моделей.объект - прототипом или оригиналом. К созданию моделейприбегают, когда исследуемый объект слишком велик процесс протекает очень быстро процесс протекает очень медленно исследование опасно объектамал создание реального для окружающих дорого Модель Модель Натурная Натурная Информационная Информационная Муляж Муляж Словесное описание Словесное описание Макет Макет формула, чертеж, схема формула, чертеж, схема Информационная модель - описание объекта- оригинала на одном из языков кодирования информации. Ядерный взрыв Двигатель внутреннего сгорания Геологический процесс4. Этапы построения информационной модели Реальный объект Реальный объект Анализ условия Анализ условия задачи задачи Объект и цель моделирования Объект и цель моделирования Существенные Существенные Связь между свойствами Связь между свойствами признаки объекта признаки объекта и основными частями объекта. и основными частями объекта. Словесное описание, таблица, Словесное описание, таблица, Формализация Формализация рисунок, схема, чертёж, формула, рисунок, схема, чертёж, формула, алгоритм, программа. алгоритм, программа. Информационная Информационная модель модель5. Пример построения информационной модели Иван к уроку литературы должен выучить наизусть трипервые строфы первой главы романа А. С. Пушкина «ЕвгенийОнегин». Это 42 строки. Сколько потребуется времени навыполнение этого задания, если первую строку Иван можетзапомнить за 5 секунд, а на запоминание каждой следующейстроки ему требуется времени на 5 секунд больше, чем назапоминание предыдущей строки? Объект моделирования Объект моделирования 

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

begin
  var n:=ReadInteger('n=');
  if n>10 then begin Writeln('n>10'); Exit end;
  var a:=ReadArrInteger(n);
  Writeln(10*'-');
  var b:=a.Where(k->k.IsEven or (k mod 13=0)).ToArray;
  var m:=0;
  for var i:=0 to b.Count-2 do
    for var j:=i+1 to b.Count-1 do
      if (b[i]*b[j]) mod 26=0 then begin
        Println(b[i],b[j]); m+=1
        end;
  if m=0 then Writeln('NO')
end.

Пример
n= 6
29 38 16 39 41 7

38 39
16 39