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

@dibar · Регистрация: 03.03.2010

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

спасибо)

@KarfaX · 20.05.2010, 01:07

Pascal

program Matrix;
 
var
   a : array[1..5,1..5] of integer;
 
procedure fill;
var
   i, j : byte;
begin
     for i:=1 to 5 do
         for j:=1 to 5 do
             a[i,j] := random(10);
end;
 
procedure swap;
var
   i, j : byte;
   tmp : integer;
begin
     for i := 1 to 5 do begin
         for j := 1 to i do begin
             tmp := a[i,j];
             a[i,j] := a[j,i];
             a[j,i] := tmp;
         end;
     end;
end;
 
procedure show;
var
   i,j : byte;
begin
     WriteLn('Matrix:');
     for i := 1 to 5 do begin
         for j := 1 to 5 do begin
             Write(a[i,j]:4);
         end;
         WriteLn;
     end;
end;
 
begin
     fill;
     show;
     swap;
     show;
end.

Пожалуйста.

@dibar · 20.05.2010, 01:18 **[ТС]**

спасибо большое)

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
		1
	В двумерном массиве, с одинаковым количеством столбцов и строк, поменять местами элементы, расположенные симметрично относительно главной диагонали 20.05.2010, 00:29. Показов 1112. Ответов 2 Метки нет (Все метки) В двумерном массиве, который имеет одинаковое количество столбцов и строк, поменять местами элементы, расположенные симметрично относительно главной диагонали. спасибо) 0

@dibar 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
	20.05.2010, 01:18 [ТС]	3
	спасибо большое) 0

Опции темы

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

Решение