1. Đếm số âm của dãy số thực. 2. Đếm số dương của dãy số thực. (Dùng kiểu mảng)

1.

var n,i,d:longint;

       a: array [1..100] of real;

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

for i:=1 to n do

write('A[',i,'] = '); read(a[i]);

for i:=1 to n if a[i] > 0 then inc(d);

write('So duong: ',d);

writeln;

end.

2.

var n,i,d:longint;

       a: array [1..100] of real;

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

for i:=1 to n do

write('A[',i,'] = '); read(a[i]);

for i:=1 to n if a[i] < 0 then inc(d);

write('So am: ',d);

writeln;

end.

Program BTT;
Uses crt;
Var A: array[1..1000] of extended;
    n,i,da,dd: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        da:=0;
        dd:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If A[i]>0 then inc(dd);
                If A[i]<0 then inc(da);
        End;
        Writeln('Co ',dd,' so duong va ',da,' so am');
        Readln
End.