Написать и протестировать функцию

[[ Senya Black ]]

В Pascal, помогите=(
Написать и протестировать функцию, переставляет в обратном порядке элементы главной диагонали квадратной матрицы.

[Valio]

В чём проблема? Про эти квадратные матрицы и диагонали 100500 тем уже.

[[ Senya Black ]]

просто не знаю где найти.... помогите пожалуйста

[Hacker19_90]

procedure Swap (var SqMatrix: TSqMatrix, const rows: integer);
var
 i: integer;
begin
  for i := 1 to (rows div 2) do
  begin
    SqMatrix[i,i] := SqMatrix[i,i] xor Sqmatrix[rows - i + 1, rows - i + 1];
    Sqmatrix[rows - i + 1, rows - i + 1] := SqMatrix[i,i] xor Sqmatrix[rows - i +1 , rows - i + 1];
    SqMatrix[i,i] := SqMatrix[i,i] xor Sqmatrix[rows - i + 1, rows - i + 1];
  end;
end;

[[ Senya Black ]]

спасибо я уже понял)))))))

[[ Senya Black ]]

А что если так????

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure change(n1: integer; var ar: tArr);
var i,j,tmp: integer;
begin
  for i:=1 to n1 div 2 do
    for j:=1 to n1 div 2 do
      begin
      if i=j then
        begin
          tmp:=ar[i,i];
          ar[i,i]:=ar[n1-i+1,n1-i+1];
          ar[n1-i+1,n1-i+1]:=tmp;
          writeln('замена:');
        end;
  end;
end;
 
var
  a: tArr;
  i,j,n: integer;
 
begin
  randomize;
  writeln('Введите размер матрицы: ');
  readln(n);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  change(n,a);
  
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

[Hacker19_90]

А что если так????

ну чтоже посмотрим

for i:=1 to n1 div 2 do
 for j:=1 to n1 div 2 do

глупо не кчему крутить два цикла! для того что бы потом делать такое

if i=j then

как бе у элементов главной диагонали индекс строки и столбца совпадают так что проще через один цикл как уменя (но это дело принципа, кому как удобно)

[[ Senya Black ]]

Спасибо=) Сейчас попробую твоим методом, а то уже голова на практике совсем не варить)