Cho mảng a gồm các phần tử a1,a2,...an đưa ra màn hình tổng số lượng các phần tử chia hết cho 3. Tự nhập mảng và gieo ngẫu nhiên giá trị

program chia_het_3;

uses crt;

var A:array[1..100] of integer;

      n,i,d:integer;

begin

     clrscr;

     write('Nhap so luong phan tu n: ');   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;

     write('Trong mang co ',d,' phan tu chia het cho 3');

     readln;

end.

*Nhập:

program chiahet3;

uses crt;

var A:array[1..100] of integer;

      n,i,d:word;

begin

     clrscr;

     write('Nhap so luong phan tu n: ');   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;

     write('Trong mang co ',d,' phan tu chia het cho 3');

     readln;

end.

*Ngẫu nhiên:

program chiahet3;

uses crt;

var A:array[1..100] of integer;

      n,i,d:word;

begin

     clrscr;

     write('Nhap so luong phan tu n: ');  readln(n);

     randomize;

     for i:=1 to n do A[i]:=random(2000)-1000;

     write('Mang tao ngau nhien la: ');

     d:=0;

     for i:=1 to n do

          begin

               write(A[i],' ');

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

          end;

     writeln;

     write('Trong mang co ',d,' phan tu chia het cho 3');

     readln;

end.