NA

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.

H24
27 tháng 3 2022 lúc 15:17

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.

Bình luận (0)

Các câu hỏi tương tự
VT
Xem chi tiết
HH
Xem chi tiết
HH
Xem chi tiết
TT
Xem chi tiết
HH
Xem chi tiết
LP
Xem chi tiết
PT
Xem chi tiết
HT
Xem chi tiết
BA
Xem chi tiết