b, viết thủ tục in ra màn hình các phần tử âm trong mảng a(nhỏ hơn O) C, viết thủ tục in ra màn hình các thủ tục dương trong mảng a

include<bits/stdc++.h>

using namespace std;

int main()

{

       int n;

       cin>>n;

       int arr[n];

       for(int i=0;i<n;i++)

       {

              cin>>arr[i];

       }

       cout<<"Cac phan tu am: ";

       for(int i=0;i<n;i++)

       {

              if(arr[i]<0)

              {

                     cout<<arr[i]<<" ";

              }

       }

       cout<<"Cac phan tu duong: ";

       for(int i=0;i<n;i++)

       {

              if(arr[i]>0)

              {

                     cout<<arr[i]<<" ";

              }

       }

       return 0;

}

Sai thì bình luận để mình sửa, tại bạn không nói ngôn ngữ gì nên mình làm c++ nha.

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i:integer;
procedure soam;
begin
    for i:=1 to n do
        if A[i]<0 then write(A[i],' ');
    writeln;
end;
procedure soduong;
begin
   for i:=1 to n do
       if A[i]>0 then write(A[i],' ');
   writeln;
end;
BEGIN
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    soam; soduong;
    readln;
END.