Помогите пожалуйста! Проверить, является ли данная квадратная матрица симметричной

Помогите пожалуйста! Проверить, является ли данная квадратная матрица симметричной (Условно Основной ДИАГОНАЛИ). Заметим, что в этом случае для симметричных частей производится условие: a(i, j)=a(j,i).(QBasic)

Задать свой вопрос
1 ответ
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) lt;gt; A(j, i) THEN
          C = 0
        END IF
    NEXT j
NEXT i
IF C = 1 THEN
  PRINT "DA"
ELSE
  PRINT "NET"
END IF
END
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт