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.