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

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.

Program baitap;

Uses crt;

Var A:array[1..10] of integer;

      i,dem:integer;

      S:longint;

Begin

Clrscr;

S:=0; dem:=0;

For i:=1 to 10 do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If A[i] mod 3=0 then 

            Begin

            S:=S+A[i];

            dem:=dem+1;

            End;

     End;

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

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

Readln

End.