Question

Lập trình nhập từ bàn phím một dãy số nguyên. Xếp các số chia hết cho 3 vừa lẻ lên đầu dãy, các số chia hết cho 3 vừa chẵn xuống cuối dãy, các số còn lại cho vào giữa dãy. Đưa kết quả ra màn hình.

Answer 1

Tham Khảo:

uses crt;

var a:array[1..100]of integer;

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);</p><p>for i:=1 to n do</p><p>  begin</p><p>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

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.