Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hồng Anh

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.

chuche
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.


Các câu hỏi tương tự
vy tường
Xem chi tiết
Hải Hà
Xem chi tiết
Hải Hà
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Hải Hà
Xem chi tiết
Long Phan
Xem chi tiết
Phan Thu
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Bùi duy anh
Xem chi tiết