Program name;
uses crt;
const n=3;
var g:array[1..n,1..n] of integer;
i,j,a,na,k:integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
read(g[i,j]);
writeln;
writeln('Vhodnaya matruca:');
for i:=1 to n do begin
for j:=1 to n do write(g[i,j]:3);
writeln;
end;
for i:=1 to n do
for j:=2 to n do begin
a:=g[i,j];
na:=1;
while a>g[i,na] do inc(na);
for k:=j-1 downto na do g[i,k+1]:=g[i,k];
g[i,na]:=a;
end;
writeln('Vuhodnaya matrica:');
for i:=1 to n do begin
for j:=1 to n do write(g[i,j]:3);
writeln;
end;
readkey;
end.
Помогите просортировать матрицу. Только чтоб сортировка была с +числами. Отрицательные оставались на месте.
Сообщение отредактировано: Dimon-fx -