Nhập vào một dãy gồm N số nguyên bất kì và đếm trong dãy có bao nhiêu số nguyên dương

✅ Viết chương trình nhập vào N số nguyên của một dãy số.Sau đó cho biết 1)có bao nhiêu số âm có trong dãy số đã cho.2)có bao nhiêu số dương trong dãy số

Viết chương trình nhập ѵào N số nguyên c̠ủa̠ một dãy số.Sau đó cho biết 1)có bao nhiêu số âm có trong dãy số đã cho.2)có bao nhiêu số dương trong dãy số

Hỏi:

Viết chương trình nhập ѵào N số nguyên c̠ủa̠ một dãy số.Sau đó cho biết 1)có bao nhiêu số âm có trong dãy số đã cho.2)có bao nhiêu số dương trong dãy số đã cho
Giúp mình với mai mình kt rồi

Đáp:

var so，n，i，dem，d:longint;

begin

writeln(‘nhap so phan tu’);readln(n);

dem:=0;d:=0;

for i:=1 to n do begin

readln(so);

if so <0 then dem:=dem+1;

if so >0 then d:=d+1;

end;

writeln(‘so so am:’，dem);

writeln(‘so so duong:’，d);

readln;

end.

var so，n，i，dem，d:longint;

begin

writeln(‘nhap so phan tu’);readln(n);

dem:=0;d:=0;

for i:=1 to n do begin

readln(so);

if so <0 then dem:=dem+1;

if so >0 then d:=d+1;

end;

writeln(‘so so am:’，dem);

writeln(‘so so duong:’，d);

readln;

end.