Sortare prin interclasare



se considera vectorul a cu in componente numere ntregi. sa se sorteze crescator, utiliznd sortarea prin interclasare.



program sort
type vectorarray1..10 of integer
var avector
n,iinteger
procedure sortp,qintegervar avector
var minteger
begin
if apaq then
begin
map
apaq
aqm
end
end
procedure intercp,q,mintegervar avector
var bvector
i,j,kinteger
begin
ip
jm1
k1
while im and jq do
if aiaj then
begin
bkai
ii1
kk1
end
else begin
bkajjj1kk1
end
if im then
for ji to m do begin
bkaj
kk1
end
else
for ij to q do begin
bkaj
kk1
end
k1
for ip to q do begin
aibk
kk1
end
end
procedure divimpp,qinteger va...