Паскаль помню плохо, так что могу только так помочь:
Цитата:
Сообщение от daNch1k
2) Определить, является ли заданная целая квадртаная матрица n-го порядка симметричной (относительно главной диагонали).
|
sum=n*n;
for i:=1 to n do
begin
for j:=1 to n do
begin
if ( mass[ i ][ j ] == mass[ j ][ i ] ) then
p:=p+1;
end
end
if ( p==sum) then
writeln("yes");
else
writeln("no");
p.s. Правильность не гарантирую!