Viết chương trình đếm số phân tử không chia hết cho 3 trong mảng nguyên A(A<=100)

0 bình luận về “Viết chương trình đếm số phân tử không chia hết cho 3 trong mảng nguyên A(A<=100)”

1. Program bt;

   Uses crt;

   Var A; array[1..100] of Integer;

         N,i,d: integer;

   Begin

      clrscr;

      Write(‘ Nhap so phan tu cua mang: ‘); Readln(N);

      d:=0;

        For i:=1 to N do

            Begin

                  Write(‘ A[‘ ,i, ‘]: ‘); 

                  Readln(A[i]);

                  if A[i] mod 3 <> 0 then d:=d+1;

             End;

      Writeln(‘ So phan tu khong chia het cho 3 la: ‘,d);

   Readln

   End.

   Bình luận

2. uses crt;
   var A:array[1..100] of integer;
       i,n,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;
      write(‘Co ‘,dem,’ phan tu khong chia het cho 3′);
      readln
   end.

   Bình luận