В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.

hedPE

В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.
4 ответа

hedPE

Может так:
var temp:integer;
...
for i:=1 to 7 do
  for j:=1 to 7 do
    begin
      temp:=mas[i,j];
      mas[i,j]:=mas[j,i];
      mas[j,i]:=temp;
    end;
...


hedPE

а можно полностью?


hedPE

program matrix_exchange;
const N = 7;
var mas:array[1..N,1..N] of integer;
i,j,temp:integer;
BEGIN
randomize;
writeln('Ishodnaya matrix:');
for i:=1 to N do
  begin
    for j:=1 to N do
      begin
        mas[i,j]:=random(100);
        write(mas[i,j]:3,' ');
      end;
    writeln;
  end;
writeln;
writeln('Result:');
for i:=1 to N do
  for j:=1 to N do
  if (i<>j) and (i<j) then
    begin
      temp:=mas[i,j];
      mas[i,j]:=mas[j,i];
      mas[j,i]:=temp;
    end;
for i:=1 to N do
  begin
    writeln;
    for j:=1 to N do
      begin
        write(mas[i,j]:3,' ');
    end;
  end;
    end.


hedPE

Огромное спасибо))