{* Задача 291 *}

Unit ZADACH291;
Interface
Implementation
Begin
 writeln('Определить симметрична матрица или нет
');
End.

Program zadach291;

Uses zadach291.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  m : integer;
  i : integer;
  j : integer;
  l : boolean;
  a : Array [1..50] Of Array [1..50] Of integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  write('Введите  количество  строк/столбцов  матрицы: ');
  readln(m);
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
    Begin
      a[i, j] := trunc(random * 100) - random(80);
      write(a[i, j] : 4);
    End;
    writeln; {* Пропускаем одну строку *}
  End;
  l := true;
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
    For j := 1 To m Do {* Увеличиваем j от 1 до m с шагом 1 *}
      If a[i, j]  a[j, i] Then
        l := false;
  If l = true Then
    writeln('Матрица симметрична')
  Else writeln('Матрица несимметрична');
    readln
End.