Viết chương trình nhập vào một mảng gồm n phần tử nguyên ( Nhỏ hơn 200) . Sau đó thực hiện công việc Đưa ra màn hình số lượng các phần tử chia hết ch

0 bình luận về “Viết chương trình nhập vào một mảng gồm n phần tử nguyên ( Nhỏ hơn 200) . Sau đó thực hiện công việc Đưa ra màn hình số lượng các phần tử chia hết ch”

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

   Trả lời