lập trình nhập vào N và dãy số nguyên X gồm M phần tử đếm và thông báo ra màn hình số lượng các số chẵn chia hết cho 7 trong dãy số C

0 bình luận về “lập trình nhập vào N và dãy số nguyên X gồm M phần tử đếm và thông báo ra màn hình số lượng các số chẵn chia hết cho 7 trong dãy số C”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i] mod 14 = 0 then inc(d);
           End;
           Write(d);
           Readln
   End.

   Bình luận