ai giải giúp bài pascal này với

[leviettien21]

Đề bài : nhập n số nguyên vào 1 mảng A rùi chia mảng A làm 2 mảng : 1 mảng số lẽ và 1 mảng số chẵn . Rùi sắp xếp 2 mảng con từ lớn -> bé và in ra màn hình

Em làm được đến đoạn chia ra làm 2 rùi nhưng đến đoạn sắp xếp thì mặc dù làm đúng cách rùi mà vẫn ko đươc . khi in ra thì chỉ in được cái số max của mang lẻ

 

[hacker_IT]

Bạn chỉ cần sắp xếp dãy A xong rùi đẩy từng phần tử chẵn sang mảng chẵn, phần tử lẻ sang mảng lẻ là xong thui
Đây là chương trình

uses crt;
var a,chan,le:array[1..100] of integer;
    i,j,n,tg,k:integer;
begin clrscr;
      write('N='); readln(n);
      for i:=1 to n do
          begin
               write('A[',i,']: '); readln(a[i]);
          end;

      for i:=1 to n-1 do
          for j:=i+1 to n do
              if a[i] > a[j] then
                 begin
                      tg:=a[i];
                      a[i]:=a[j];
                      a[j]:=tg;
                 end;
      j:=0; k:=0;

      for i:=1 to n do
          if a[i] mod 2 = 0 then
             begin
                  inc(j);
                  chan[j]:=a[i];
             end
          else
              begin
                  inc(k);
                  le[k]:=a[i];
              end;

      clrscr;
      writeln('Day ban dau: ');
      for i:=1 to n do write(a[i]:5);
      writeln;
      writeln('Day so chan: ');
      for i:=1 to j do write(chan[i]:5);
      writeln;
      writeln('Day so le: ');
      for i:=1 to k do write(le[i]:5);
      readln;
end.

 

[korangar]

Nếu ai có hứng thú về pascal thì vào đây nhá : http://diendanpascal.net/forum . Diễn đàn sẽ cố gắng đáp ứng thắc mắc của bạn trong thời gian sớm nhất . ::)

 

[leviettien21]

cảm ơn nhá làm đựoc rùi . Mình noob quá tách mảng trước rùi mới sắp xếp