Question

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

Answer 1

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.