Viết chương trình nhập vào số nguyên dương N và dãy số nguyên A1,A2,...,AN a) In mảng vừa nhập b) Đếm số phần tử nhỏ hơn 0 của mảng CẦN GAAPSPPPP Ạ

Câu a;

#include <bits/stdc++.h>
using namespace std;
void nhap(int a[], int n)
{
    for (int i = 0; i < n; i++)
    {
     cin>>a[i];
    }
}
int main()
{
    int a[1000];
    int n,i;
    cin>>n;
    nhap(a, n);
    for (int i = 0; i < n; i++)
    {cout<<a[i]<<" ";
}}

b)

Mình chưa làm được

program bai_giai;

uses crt;

var a:array[1..1000]of longint; dem,i,n:longint;

begin

clrscr;

write('nhap n:');readln(n);

dem:=0;

for i:=1 to n do 

begin

write('a[',i,']=');readln(a[i]);

if(a[i]<0)then inc(dem);

end;

for i:=1 to n do write(a[i],' ');

writeln;

write('so luon phan tu nho hon 0 trong day la:',dem);

readln

end.