Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const n=6; m=6;
- var a:array[1..n,1..m] of integer;
- i,j:integer;
- begin
- writeln('matrix:');
- for i:=1 to n do
- begin
- for j:=1 to m do
- begin
- A[i,j]:=random(2);
- write(A[i,j]:2);
- end;
- writeln;
- end;
- end.
- for i:=1 to n do
- for j:=1 to m do
- if a[i,j]<>a[j,i] then
- writeln ('матрица не симметрична ')
- else writeln ('матрица симметрична');
- // Проверяем на квадратность
- Symmetrical := (m = n);
- // Проверяем на симметричность
- if Symmetrical then
- for i:=1 to n do
- for j:=1 to m do // тут можно написать for j:=i+1 to m do
- Symmetrical := Symmetrical and (a[i,j] = a[j,i]);
- // Выводим результат
- if Symmetrical then
- writeln ('матрица симметрична')
- else
- writeln ('матрица не симметрична');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement