program lab6;
uses crt,pros;
Var
i,n,j,m: Integer;
a: matr;
begin
write('Vvedite koli4estvo strok=');read(n);
write('Vvedite koli4estvo stolbcov=');read(m);
writeln('Vvedite e-ti massiva');
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
sort(a,n,m);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
readkey;
end.
Подключаемый модуль (где впринципе и лежит сортировка):
Unit pros;
Interface
type matr= array[1 .. 100,1..100] of integer;
procedure sort(var a: matr; n,m: integer);
Implementation
procedure sort;
var
i,j,t,l : integer;
begin
for i:=1 to n do
for j:=1 To m do
begin
t:= a[i,j];
l:=j-1;
while (t<a[i,l+1]) and (l>=0) do
begin
a[i,l+1]:= a[i,l];
l:=l-1;
end;
a[i,l+1]:=t;
end;
end;
end.
Сообщение отредактировано: КрАсАвИцА -