Cho mảng a gồm n a1 a2 … an số nguyên hãy tính tổng các số dương chia hết cho 3

0 bình luận về “Cho mảng a gồm n a1 a2 … an số nguyên hãy tính tổng các số dương chia hết cho 3”

1. uses crt;
   var A:array[1..1000] of integer;
       N,i,dem:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 3 = 0 then inc(dem);
      end;
      writeln(‘So luong so chia het cho 3 la: ‘,dem);
      readln
   end.

   Bình luận