Задана квадратная матрица размерности N,гдеN-четное число.Рассортировать элементы главной диагонали в порядке возростания а побочной-в порядке убывания элементов.
Помогите, пожалуйста, написать програму в паскале.
№ 1 | Автор: OTB |
2012-05-06, 17:38
|
Репутация: [ + 0 ]
|
|
|
|
Const
n=4;
var
a:array[1..n,1..n]of integer;
q,w:array[1..n]of integer;
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if i=j then q[i]:=a[i,j];
if j=n-i+1 then w[i]:=a[i,j];end;
for i:=1 to n do
for j:=1 to n-1 do begin
if q[j]>q[j+1] then begin s:=q[j];q[j]:=q[j+1];q[j+1]:=s;end;
if w[j]<w[j+1] then begin s:=w[j];w[j]:=w[j+1];w[j+1]:=s;end;end;
for i:=1 to n do
for j:=1 to n do begin
if i=j then a[i,j]:=q[i];
if j=n-i+1 then a[i,j]:=w[i];end;
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
