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

ну и в чем проблема?
идешь циклом по матрице. элементы на главной диагонали должны быть равны 1, а все остальные - 0.
если не так - значит, не единичная.

главную диагональ как определить??

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

volvo, ты думаешь, здесь логично использовать именно for?
а почему?

Я не сказал, что для решения поставленной задачи логично использовать For... С For-ом я просто показал, что такое главная диагональ ...

А как без цикла? На основе каких либо признаков? Так для их определения тоже надо сперва циклом пройтись.

Archon, с циклом, конечно
просто нам ведь не обязательно идти по всей матрице - как только попадается неподходящий элемент, можно прекращать работу.
в принципе, можно использовать for+break, но это как-то... ну....
лучше взять другой тип цикла - с предусловием или постусловием.

А-а-а... Ну конечно

Спс, понял