Программа. Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной (относительно главной диагонали).
bSymmetric:=true;
for i:=1 to n do
for j:=i+1 to n do
bSymmetric:=bSymmetric AND (a[i, j]=a[j, i]);
if bSymmetric then
WriteLn('Yes!!!!!!!!!!!!!!!!!!!!!)
else
WriteLn('No, No, No.);