условие: Дана квадратная матрица А порядка n. Проверить, является ли данная матрица симметричной.
Код
program;
uses
crt;
VAr
a: array [1..100,1..100] of real;
i,j,n:integer;
procedure enter;
begin
writeln ('введите n');
readln (n);
writeln ('введите ваш массив');
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
end;
procedure exit;
begin
for i:=1 to n do
for j:=1 to n do
writeln (a[i,j]);
end;
procedure proverka;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then
begin
clrscr;
exit;
writeln ('матрица не симметрична ');
readkey;
halt;
end;
end;
BEGIN
clrscr;
enter;
proverka;
clrscr;
exit;
writeln ('матрица симметрична');
readkey;
END.
uses
crt;
VAr
a: array [1..100,1..100] of real;
i,j,n:integer;
procedure enter;
begin
writeln ('введите n');
readln (n);
writeln ('введите ваш массив');
for i:=1 to n do
for j:=1 to n do
readln (a[i,j]);
end;
procedure exit;
begin
for i:=1 to n do
for j:=1 to n do
writeln (a[i,j]);
end;
procedure proverka;
begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then
begin
clrscr;
exit;
writeln ('матрица не симметрична ');
readkey;
halt;
end;
end;
BEGIN
clrscr;
enter;
proverka;
clrscr;
exit;
writeln ('матрица симметрична');
readkey;
END.