program ct;

uses crt;

var i,n,d1,d2:integer; 

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

begin

clrscr;

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

     for i:=1 to n do

begin

   write('nhap mang A[',i,']:=');readln(A[i]);

end;               

   d1:=0; d2:=0;

     for i:=1 to n do

begin

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

   if A[i]>0 then d2:=d2+1;

end;

   writeln('co',d1,' so am');

   writeln('co',d2,' so duong');

readln

end.

program ct;

uses crt;

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

      i,n,d1,d2:integer; 

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;               

   for i:=1 to n do

     begin

        if A[i]<0 then inc(d1);

        if A[i]>0 then inc(d2);

     end;

   writeln('Co ',d1,' so am');

   writeln('Co ',d2,' so duong');

readln;

end.

Học tốt!