проверить, симметрична ли данная матрица относительно побочной диагонали. Ввод матрицы из файла и вывод результатов в файл.
я написала программу
program Lab7;
uses crt;
const nmax=30; nl=#13#10; delta=0.000001;
type matr=array[1..nmax, 1..nmax] of real;
vect=array[1..nmax] of real;
var a,b :matr;
x :vect;
g,n,m,l,i,j:integer;
fin,fout:text;
s:real;
begin
g:=0;
assign(fin, 'e:\s10222\1.txt');
reset(fin);
assign(fout,'e:\s10222\F2.txt');
rewrite(fout);
read(fin, n);
for i:=1 to n do
for j:=1 to n do
read(fin, a[i,j]);
for i:=1 to n do
for j:=1 to n do
If abs(a[n-i,n-j]-a[n-j,n-i])<=delta
then g:=g+1;
If g=n*n then write(fout,'Matriza simmetrichna otnositelno pobochnoi diagonali!')
else
write(fout,'Matriza ne simmetrichna otnositelno pobochnoi diagonali!');
close(fin);
close(fout);
end.
Но она не работает!! Помогите найти ошибку!!! и справить)))
Сообщение отредактировано: volvo -