Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
паскаль
Задана квадратная матрица размерности 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
2 | Автор: Berestovskiy | 2012-05-06, 17:58   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-06, 17:58   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: