Viết chương trình nhập mảng A gồm 10 phần tử nguyên. Tính tổng và đếm các phần tử là số chia hết cho 3 và in ra màn hình

program mang;

var

         dem,i,T:integer; 

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

Begin

        dem:=0; T:=0;

        For i:=1 to 10 do Readln(A[i]); 

       for i:=1 to 10 do if A[i] mod 3=0 then

       Begin

              T:=T+A[i]; inc(dem);

        End;

        writeln('Tong cac phan tu la so chia het cho 3: ',T);

        write('Co ',dem,' phan tu la so chia het cho 3');

        Readln;

End.

 #Hngoc

uses crt;
var s,dem,i:longint;a:array[1..10]of longint;
begin
 clrscr;
  dem:=0;
  s:=0;
  for i:=1 to 10 do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(i mod 3=0)then
                begin
                 inc(dem);
                 s:=s+a[i];
                end;
        end;
  writeln('co ',dem,' so chia het cho 3');
  write('tong cac so chia het cho 3 trong day la:',s);
 readln
end.