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

2. bước 1 : nhập a1 , a2,… an , N , k=0

   bước 2 : gán i =1, d=0 ( d là biến đếm ) 

   b3 : nếu i>n thì đưa ra kết quả rồi kết thúc 

   b4: cho Ai = k suy ra d=d+1

   b5: i=i+1 rồi quay lại bước 3

   Bình luận