Nhập vào 1 mảng số nguyên gồm n phần tử. Tính tổng các phần tử chia hết cho 2 trong mảng và in ra màn hình

Program     mangmotchieu;

Uses  crt;

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

        i, n, tong : integer;

Begin

      clrscr;

        write('Nhập số lượng phần tử n là: '); Readln(n);

        for i:= 1 to n do write('Phần tử thứ ', i, ' là '); Readln(A[i]);

        write('Mảng vừa nhập là ');

        tong:=0;

        for i:= 1 to n do 

        if A[i] mod 2 = 0 then tong:= tong+ A[i];

        write('Tổng các phần tử chẵn là ', tong);

       readln;

End.

---------

CHÚC BẠN HỌC TỐT

Program     mangmotchieu;

Uses  crt;

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

        i, n : integer;

Begin

      clrscr;

        write('Nhập số lượng phần tử n là: '); Readln(n);

        for i:= 1 to n do write('Phần tử thứ ', i, ' là'); Readln(A[i]);

        write('Mảng vừa nhập là ');

        for i:= 1 to n do 

        if A[i] mod 2 = 0 then tong:= tong+ A[i];

        write('Tổng các phần tử chẵn là ', tong);

       readln;

End.