Cho mảng một chiều A gồm N số nguyên (N<=200). Hãy viết chương trình nhập mảng A từ bàn phím đưa ra màn hình tổng các phần tử chắn có trong mảng.

program tongchan;

uses crt;

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

      n,i:byte;

      tong:integer;

begin

    clrscr;

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

    tong:=0;

    for i:=1 to n do

        begin

            write('A[',i,']= ');   readln(A[i]);

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

        end;

    write('Tong cac phan tu chan trong mang la: ',tong);

    readln;

end.

uses crt;

var n,i:byte;

a:array[1..200] of integer;

    tong:longint;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        tong:=0;

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

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

        end;

        write('Tong cac phan tu chan la:',tong);

        readln

END.

Chúc bạn học tốt!