Определение симметричной матрицы

[dancergirl]

Помогите плиз решить задачу:
Определить становиться ли симметричной заданная матрица после замены на 0 каждого минимума по строке
Есть какие- то наработки,только не знаю как правильно найти симметричную матрицу

program A
uses crt
var:M array[1..n,1..n] of integer
i,j,min :integer,
begin
for i:=1 to n do
readln(M[i]),
min :=M[1],
for i := 2 to n do
if min < M[i] then
min:=M[i]
for i:=1 to n do
if M[i]:=min then
M[i]=o
for i:=1 to n do
writeln(M[i])
readln
end.

[alex_fcsm]

Она ведь у Вас даже не компилится.

Ладно попробуйте разобраться с этим

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j,min :integer;
    f:boolean;
begin
for i:=1 to n do
 for j:=1 to n do
  read(a[i,j]);
clrscr;
for i:=1 to n do
 begin
   for j:=1 to n do
    write(a[i,j]:3);
  writeln;
 end;
 for i:=1 to n do
  begin
   min:=1;
    for j:=2 to n do
     if a[i,min]>a[i,j] then min:=j;
   a[i,min]:=0;
  end;
  writeln('========================');
for i:=1 to n do
 begin
   for j:=1 to n do
    write(a[i,j]:3);
  writeln;
 end;
 f:=true;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]<>a[j,i] then f:=false;
 if f then writeln('Symmetry')
    else writeln('Bad');

end.

Вы конечно же это знаете, но все же

Возьмите пример
1 2 3
2 1 3
3 3 2 - Симметричная после замены на 0(да и без замены тоже ) )

[dancergirl]

Спасибо за решение попробую разобраться.