Cho dãy A gồm N số nguyên a1, a2,...,an. Cho biết dãy trên có bao nhiêu số nguyên âm. (Cứu em vs m.n ơiiii)

Program baitap;

Uses crt;

Var a:array[1..200] of integer;

      n,i,dem:integer;

Begin

Clrscr;

dem:=0;

Write('n='); Readln(n);

For i:=1 to n 

     Begin

     Write('a[',i,']=');

     Readln(a[i]);

     If a[i]<0 then dem:=dem+1;

     End;

Writeln('So nguyen am co trong day:',dem);

Readln

End.

uses crt;

var A : array [1 .. 100] of integer;

i, N, d : integer;

begin

clrscr;

d := 0;

write('Nhap N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(A[i]);

        if A[i] < 0 then d := d + 1;

    end;

write('Day co ', d ,' so nguyen am');

readln

end.