Матрицы

[SkyL1ne]

Есть маленькая проблемка...
Задача равны ли элементы матрицы относительно главной диагонали,
транспонирование не подходит, точнее да это самый верный вариант, но мало ли дураков...
вопрос как можно задать в цикле это сравнение7, поджскажите

[DoDge_VipeR]

t:=false;
for i:=1 to n do begin
for j:=i+1 to n do
if a[i,j]<>a[j,i] then begin t:=true;break;end;
if t then break;
end;
if t then... {элементы не равны}
else.... {равны}

[SkyL1ne]

только вот одно не понятно, первый раз мы выходим из цикла, по брейку если элементы не равно, то есть дальше смысла сравнивать нет?
а второй брейк зачем7

[Grag]

А второй break для второго цикла...

[SkyL1ne]

а все понял)