PROCEDURE sapxep(var a:mang); Var d, I: integer; Tam:integer; Begin D:=0; For i:=1 to n do If (a[i] mod 2 <>0) and (a[i]<>0) then Begin D:=d+1; Tam:=a[i]; A[i]:=a[d]; A[d]:=tam; End; For i:=d+1 to n do If a[i]=0 then Begin D:=d+1; Tam:=a[i]; A[i]:=a[d]; A[d]:=tam; End; End;
PROCEDURE sapxep(var a:mang); Var d, I: integer; Tam:integer; Begin D:=0; For i:=1 to n do If (a[i] mod 2 <>0) and (a[i]<>0) then Begin D:=d+1; Tam:=a[i]; A[i]:=a[d]; A[d]:=tam; End; For i:=d+1 to n do If a[i]=0 then Begin D:=d+1; Tam:=a[i]; A[i]:=a[d]; A[d]:=tam; End; End;
xong rôi nha mình cũng lục tài liệu y trang bạn ấy
