Cho N và dãy số a1,-,aN,hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0

0 bình luận về “Cho N và dãy số a1,-,aN,hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0”

1. Program Dem;
   Uses crt;
   Var A: array[1..10000] of longint;
       i,n,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap N: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           d:=0;
           For i:=1 to n do
                   If A[i]=0 then inc(d);
           Write(‘Co ‘,d,’ phan tu co gia tri bang 0′);
           Readln
   End.

   Bình luận