Program Bai_tap_day_so;
Uses Crt;
Var i,n,tchan,tle: integer;
    a: array[1..100] of integer;
Begin
        Write('Nhap so phan tu cua mang: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap phan tu thu ',i);
                Readln(a[i]);
        End;
        tchan:=0; tle:=0;
        For i:=1 to n do
        Begin
                If A[i] mod 2 = 0 then tchan:=tchan+A[i]
                Else tle:=tle+A[i];
        End;
        Writeln('Tong cac phan tu chan trong mang la: ',tchan);
        Writeln('Tong cac phan tu le trong mang la: ',tle);
        Readln
End.

----

Chức năng: Tính tổng các số chẵn và lẻ trong mảng A gồm n phần tử

Thứ tự đúng 

         $(1)$ Program Bai_tap_day_so;

         $(2)$   Uses Crt;

         $(3)$   Var i,n,tchan,tle: integer;

         $(4)$   a: array[1..100] of integer;

         $(5)$    Begin

         $(6)$   Write('Nhap so phan tu cua mang: '); Readln(n);

         $(7)$   For i:=1 to n do

         $(8)$  Begin

         $(9)$    Write('Nhap phan tu thu ',i);readln(a[i]);

        $(10)$     End;

        $(11)$    tchan:=0; tle:=0;

        $(12)$  For i:=1 to n do

        $(13)$  Begin

        $(14)$   If A[i] mod 2 = 0 then tchan:=tchan+A[i]  else tle:=tle+A[i];

        $(15)$  End;

        $(16)$  Writeln('Tong cac phan tu chan trong mang la: ',tchan);

        $(17)$  Writeln('Tong cac phan tu le trong mang la: ',tle);

        $(18)$  Readln;

        $(19)$ End.

Thực hiện công việc tính tổng chẵn lẻ trong mảng gồm $n$ phần tử