Sắp xếp mảng sao cho các số lẻ nằm trước day, các số chẵn nằm ở cuối dãy, các số 0 nằm ở giữa dãy

0 bình luận về “Sắp xếp mảng sao cho các số lẻ nằm trước day, các số chẵn nằm ở cuối dãy, các số 0 nằm ở giữa dãy”

1. 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

   Bình luận

2. xem thủ đúng ko

   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;

   Bình luận