Cho dãy A gồm N số nguyên A1,A2 -An hãy cho biết có bao nhiêu số 5 trong dãy A

0 bình luận về “Cho dãy A gồm N số nguyên A1,A2 -An hãy cho biết có bao nhiêu số 5 trong dãy A”

1. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i]=5 then inc(d);
           End;

           Write(‘Co ‘,d,’ so 5′);
           Readln
   End.

   Bình luận