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ố

0 bình luận về “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ố”

1.  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.

   Bình luận