Перестановка элементов матрицы
Помогите пожалуйста! Нужно перевернуть задом-наперед элементы второй диагонали квадратной матрицы.
- Вторая диагональ - что это такое? от wanja, 04 декабря 2012 года
Да там делать нечего!!!!
Код:
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
//uses
// System.SysUtils;
const
m = 1000;
var
n,i,j:integer;
a: array[1..m,1..m] of integer;
begin
randomize;
write('array size = '); readln(n);
writeln;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:=random(200)-100;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:= 1 to n do
begin
if i<n/2 then
begin
a[i,n+1-i]:= a[i,n+1-i] - a[n+1-i,i];
a[n+1-i,i]:= a[i,n+1-i] + a[n+1-i,i];
a[i,n+1-i]:= a[n+1-i,i] - a[i,n+1-i];
end;
for j:= 1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
{$APPTYPE CONSOLE}
{$R *.res}
//uses
// System.SysUtils;
const
m = 1000;
var
n,i,j:integer;
a: array[1..m,1..m] of integer;
begin
randomize;
write('array size = '); readln(n);
writeln;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:=random(200)-100;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:= 1 to n do
begin
if i<n/2 then
begin
a[i,n+1-i]:= a[i,n+1-i] - a[n+1-i,i];
a[n+1-i,i]:= a[i,n+1-i] + a[n+1-i,i];
a[i,n+1-i]:= a[n+1-i,i] - a[i,n+1-i];
end;
for j:= 1 to n do
write(a[i,j]:4);
writeln;
end;
readln
end.
Cunning_Chinese, говнокодерам вообще делать нечего, это верно!! Не прикасайся грязными лапами к священному коду, дабы не прокляли тебя светлые умы этого сайта!