Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Luân Trần

Viết chương trình nhập vào mảng n số nguyên. Sắp xếp các phần tử của mảng sao cho các số âm ở đầu dãy, số 0 ở giữa rồi đến các số dương. Sao cho thứ tự các số âm và số dương không đổi. In ra màn hình dãy sau khi xếp.

VD:

n = 5

Input:

5 0 1 -9 3

Output:

-9 0 5 1 3

Nguyễn Lê Phước Thịnh
28 tháng 12 2019 lúc 19:40

uses crt;
var a,b,c,d:array[1..100]of integer;
n,i,dem,dem1,dem2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end
else if a[i]=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end
else begin
inc(dem2);
d[dem2]:=a[i];
end;
for i:=1 to dem do
write(b[i]:4);
for i:=1 to dem1 do
write(c[i]:4);
for i:=1 to dem2 do
write(d[i]:4);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
09 Lê Quang HIếu
Xem chi tiết
ádfg
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Đặng Công
Xem chi tiết
27. Nguyễn Chí Thiện
Xem chi tiết
Đặng Công
Xem chi tiết
Ngọc Diệp
Xem chi tiết
Ly Huong Tra
Xem chi tiết
Ha Ha
Xem chi tiết