Поменять нулевые эл-ты относит. глав.диаг.

[HIP-H0P]

Собственно нужно поменять элементы равные нулю на элементы, симметричные данным относительно главной диагонали.
Вот мой код:

program andrei4ik(nuLi_otnositelno_glav_diagonali);
var
a: array[1..4,1..4] of integer;
x,y,i,j:integer;
begin
For i:=1 to 4 do
For j:=1 to 4 do
begin
WriteLn('Vvedite element');
ReadLn(a[i,j]);
end;
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);        {Выводим начальную матрицу}
WriteLn;
end;
For i:=1 to 4 do
For j:=1 to 4 do
begin
If (i=j) then     {Исключаем проверку элементов главной даигонали, и производим любой действие}
x:=1 else
begin
If a[i,j]=0 then           {Проверяем значение элемента, если равен нулю - меняем на противоположный}
y:=a[i,j];
a[j,i]:=a[i,j];
a[j,i]:=y;
end;
end;
writeLn(' ');
writeLn(' ');
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);                 {Выводим полученную матрицу}
WriteLn;
end;
Readln;
end.
end.

Проблема в том, что программа обнуляет все элементы кроме элементов глав. диагонали, что делать не знаю

[anGeee]

Я бы реализовал замену так :

k := 1;
for i := 2 to 4 do
  begin
    for j := 1 to k do
      if ((a[i,j]=0)and(a[j,i]<>0))or((a[i,j]<>0)and(a[j,i]=0)) then
        begin
          y := a[i,j];
          a[i,j] := a[j,i];
          a[j,i] := y;
        end;
    inc(k);
  end;

[HIP-H0P]

Все, всем спс, я решил задачу:

program andrei4ik(nuLi_otnositelno_glav_diagonali);
var
a: array[1..4,1..4] of integer;
x,y,i,j:integer;
begin
For i:=1 to 4 do
For j:=1 to 4 do
begin
WriteLn('Vvedite element');
ReadLn(a[i,j]);
end;
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);        {Выводим начальную матрицу}
WriteLn;
end;
For i:=1 to 4 do
For j:=1 to 4 do
begin
y:=1;          {зачем это действе - не знаю, но пусть будет}
If a[i,j]=0 then  {Проверяем значение элемента, если равен нулю - меняем на противоположный}
begin          
y:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=y;
end 
else 
y:=12;  {зачем это действе - не знаю, но пусть будет}
end;
writeLn(' ');
writeLn(' ');
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);                 {Выводим полученную матрицу}
WriteLn;
end;
Readln;
end.
end.

anGeee, интересный ход решения, но зачем нужна перем. k, зачем dec? Почему сразу нельзя сделать так:

for j:=1 to 3 do

[anGeee]

Потому что я шел по элементам матрицы, которые выше главной диагонали.
Вот мне интересно, какой результат выдаст ваша программа, обработав матрицу
0 0 0 1
0 0 1 2
0 1 2 3
1 2 3 4
Почему-то мне кажется, что ничего не поменяется...

[HIP-H0P]

anGeee, так правильно, ничего и не должно поменяться!
Вот задание:
Поменять местами элементы двумерного массива равные нулю на соответствующие элементы, расположенные симметрично относительно главной диагонали.
У вас все нули и так симметричны.....

[anGeee]

Ох ты ж блин, я имел в виду матрицу
1 0 0 0
1 2 0 0
1 2 3 0
1 2 3 4
Такую матрицу ваш алгоритм поменяет ?
ПС Что-то со мной не то - думаю одно, а пишу другое )

[HIP-H0P]

мде.... не поменял... а где ошибка? что то я вообще не понимаю... объясните пожалуйста

[anGeee]

Просто вы просматриваете все элементы матрицы, при этом меняя их.
То есть, например, у вас элемент (1,2) равен нулю, а элемент (2,1) равен, например, 5. Вот вы в первый раз встретили элемент (1,2), увидели там ноль и поменли его с элементом (2,1). Теперь (2,1) равен нулю. Однако, вскоре вы добираетесь до элемента (2,1) - он равен нулю.. И вы меняете его обратно..
Попробуйте мой вариант. Там я прохожу по элементам ниже главной диагонали, просматривая сразу два элемента (i,j) и (j,i) - если один из них нуль, то меняем их местами.

[HIP-H0P]

Спасиб огромное, работает!

program andrei4ik(nuLi_otnositelno_glav_diagonali);
var
a: array[1..4,1..4] of integer;
x,y,i,j:integer;
begin
For i:=1 to 4 do
For j:=1 to 4 do
begin
WriteLn('Vvedite element');
ReadLn(a[i,j]);
end;
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);        
WriteLn;
end;
x:=1;
For i:=2 to 4 do
begin
For j:=1 to x do
begin        
If (a[i,j]=0) or (a[j,i]=0) then 
begin
y:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=y;
end
else  
end;
inc(x);
end;
writeLn(' ');
writeLn(' ');
For i:=1 to 4 do
begin
For j:=1 to 4 do
Write(a[i,j]:5);             
WriteLn;
end;
Readln;
end.
end.

Только я вот эту вашу строчку

 if ((a[i,j]=0)and(a[j,i]<>0))or((a[i,j]<>0)and(a[j,i]=0)) then

заменил так:

 if (a[i,j]=0) or (a[j,i]=0) then

Т.к. не вижу смысла в проверке второго элемента, на его "не равность нулю".
anGeee, спасиб огромное!