Bài 1: Cho các giá trị a1,a2,a3,-.aN (số nguyên khác không )N phần tử. Đếm và đưa ra xem có bao nhiêu giá trị âm, duơng

Uses crt;
Var t,i,n:longint; a:array[1..1000000]of longint;
Begin
Clrscr;
   write(‘N=’);readln(n);
   For i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
         if a[i]<=0 then inc(t);
      end;  writeln(‘Co ‘,t,’ so am’);
      writeln(‘Co ‘,n-t,’ so duong’);
Readln;
End.