Nhập mảng A gồm N phần tử ( N <= 10). Đếm và tính tổng các số chẵn số lẻ số chia hết cho 2 và 3 trong mảng. Đưa kết quả ra màn hình

program ct;

uses crt;

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

      i,n,d1,d2,d3:integer;

      S1,S2,S3:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S1:=0; S2:=0; S3:=0;

   for i:=1 to n do

     begin

        if A[i] mod 2=0 then 

          begin

             inc(d1);

             S1:=S1+A[i];

          end;

        if A[i] mod 2=1 then

          begin

             inc(d2);

             S2:=S2+A[i];

          end;

        if (A[i] mod 2=0) and (A[i] mod 3=0) then

          begin

             inc(d3);

             S3:=S3+A[i];

          end;

     end;

   writeln('Co ',d1,' so chan. Tong la: ',S1);

   writeln('Co ',d2,' so le. Tong la: ',S2);

   writeln('Co ',d3,' so chia het cho 2 va 3. Tong la: ',S3);

readln;

end.

Học tốt!

Uses Crt;
Var i, n, Sle, Schan: integer;
    a: array [1..100] of integer;
BEGIN
Clrscr;
Schan:=0;
Sle:=0;
Write('Nhap n= '); Readln(n);
For i:=1 to n do
Begin
        Write('a[',i,']= ');
        Readln(a[i]);
End;
For i:=1 to n do
        If (a[i] mod 2 = 0) Then  Schan:=Schan+a[i];
For i:=1 to n do
        If (a[i] mod  3 = 0) Then  Sle:=Sle+a[i];
Write('Tong cac so chan chia het cho 2= ',Schan);
Writeln;
Write('Tong cac so le chia het cho 2= ',Sle);
Readln;
END.