✅ 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ố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:
lanhoa: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.
lanhoa: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.