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

@hedPE · Регистрация: 27.12.2011

@Артём121 · 22.03.2012, 19:57

Может так:

Delphi

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 · 22.03.2012, 20:00 **[ТС]**

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

@Артём121 · 22.03.2012, 20:45

Pascal

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 · 22.03.2012, 21:17 **[ТС]**

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

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@hedPE 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 10
		1
	В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали. 22.03.2012, 19:09. Показов 1051. Ответов 4 Метки нет (Все метки) В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали. 0

@hedPE 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 10
	22.03.2012, 20:00 [ТС]	3
	а можно полностью? 0

Опции темы