Hãy nhập vào mảng A[n] phần tử sắp xếp mảng có các số dương tăng dần và số âm giảm dần. Làm bằng ngôn ngữ lập trình pascal nhé!

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

- Số 0 ở bài này được tính là số dương mặc dù nó không là số âm hoặc không là số dương

- Nếu đổi, chỉ cần thay điều kiện là được

*Code :

var a, am, duong : array[1..100] of longint;
    n, i, j, tam, da, dd: longint;
begin
    readln(n);
    for i := 1 to n do read(a[i]);
    da := 0 ; dd := 0;
    for i := 1 to n do 
        if a[i] < 0 then 
             begin
            inc(da);
            am[da] := a[i];
             end 
        else if a[i] >= 0 then 
             begin
            inc(dd);
            duong[dd] := a[i];
             end ;
    for i := 1 to da do 
        for j := i + 1 to da do 
            if am[i] < am[j] then
                 begin
                tam := am[i];
                am[i] := am[j];
                am[j] := tam;
                 end ;
    for i := 1 to dd do 
        for j := i + 1 to dd do 
            if duong[i] > duong[j] then
                 begin
                tam := duong[i];
                duong[i] := duong[j];
                duong[j] := tam;
                 end ;
    for i := 1 to da do write(am[i],' ');
    writeln;
    for i := 1 to dd do write(duong[i],' ');
    writeln;
end .