Đề 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ẻ
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 Mã: 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.
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 . ::)