cho N và dãy a1 a2 a3 a4,,,,,an. cho biết trong dãy có bao nhiêu số hạng có giá trị =8

0 bình luận về “cho N và dãy a1 a2 a3 a4,,,,,an. cho biết trong dãy có bao nhiêu số hạng có giá trị =8”

1. – Input: Dãy A gồm N số nguyên a₁, a₂…, a_N ;

   – Output: Các số hạng trong dãy A có giá trị bằng 8.

   Bước 1.  Nhập N, các số hạng a₁, a₂…, a_N;

   Bước 2.  i<- k, k<- 0;

   Bước 3.  Nếu a_i= 0 thì k <- k+1;

   Bước 4.  i <- i+1;

   Bước 5:  Nếu i > N thì đưa ra giá trị k, rồi kết thúc;

   Bước 6.  Quay lại bước 3. 

   Bình luận

2. Uses crt;
   Var A:array[1..10000] of longint;
       N,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;
           s:=0;
           For i:=1 to n do
                   If A[i]=8 then inc(s);
           Write(‘Co ‘,s,’ gia tri bang 8′);
           Readln
   End.

   Bình luận