Tin học Pascal

[Bui Quang Phuc]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập 1 số nguyên dương N (N≤1000), sau đó nhập 1 dãy số A gồm N số nguyên.Sắp xếp số chẵn lên trước số lẻ. Số chẵn nhỏ đứng trước số chẵn lớn. Số lẻ nhỏ đứng trước số lẻ lớn.

 

[Hải Ham Học]

var i,n,d:integer;
      a,b:array[1..1000] of int64;
begin
 readln(n);
 for i:=1 to n do readln(a[i]);
 j:=1; i:=1;
 while (i<=n) do
   begin
     if (a[i] mod 2<>0) then
       begin
         b[j]:=a[i];
         j:=j+1;
       end;
      i:=i+1;
    end;
    d:=j;
  j:=d+1; i:=1;
  while (i<=n) do
    begin
     if  (n mod 2=0) then
       begin
          b[j]:=a[i];
          j:=j+1;
       end;
      i:=i+1;
     end;

=> đoạn chẵn là từ b[d+1] đến b[n]
đoạn lẻ là từ b[1] đến b[d];
sau đó sắp xếp 2 cái mảng trên lại là được, nhớ tách riêng biệt 2 thuật toán sắp xếp ra

 

[Hải Ham Học]

Em cảm ơn anh ạ

có biết làm khúc sắp xếp không đó

 

[Code11]

Ý tưởng: cho 2 mảng a,b
- Sắp xếp dãy số ở mảng a (ở đây mình dùng sắp xếp nổi bọt vì dữ liệu nhỏ)
- In ra mảng b dãy số chẵn từ mảng a
- In ra mảng b dãy số lẻ từ mảng a

var
a,b:array [1..1000] of longint;
i,j,n,temp,k:longint;
begin
write('N:');readln(n);
//nhap day n so
for i:=1 to n do begin
                 write ('Nhap so thu ',i,':');readln(a[i]);
                 end;
//sap xep day so
for i:=2 to n do
              for j:=1 to n-1 do
                            if a[i]<a[j] then begin
                                              temp:=a[i];
                                              a[i]:=a[j];
                                              a[j]:=temp;
                                              end;
//in so chan, le ra mang b va in mang b ra man hinh
k:=1;
for i:=1 to n do
              if a[i] mod 2 = 0 then begin b[k]:=a[i];inc(k); end;
for i:=1 to n do
              if a[i] mod 2 <> 0 then begin b[k]:=a[i];inc(k); end;
for i:=1 to n do write (b[i],'  ');
readln;
end.