проверить матрицу на единичность Опции

[злой тапОК]

Дана квадратная матрица А, порядка n. Проверить, является ли она единичной.

[volvo]

for i := 1 to n do
  if a[i, i] = 1 ... { <--- Одинаковый индекс по вертикали и горизонтали - главная диагональ }