uses crt;
var i,n,schan,sle:longint; a:array[1..10000]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap A',i,': ');readln(a[i]);
         if a[i] mod 2=0 then inc(schan,a[i]) else inc(sle,a[i]);
      end;
   writeln('Tong cac so chan: ',schan);
   writeln('Tong cac so le: ',sle);
readln
end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program Vietnam;
uses crt;
var i,n,chan,le: integer;
    a: array[1..1000] of word;
begin
     clrscr;
     writeln('Nhap so luong phan tu: '); readln(n);
     for i:=1 to n do begin
     writeln('Nhap phan tu thu ',i,': '); readln(a[i]);
     end;
     chan:=0; le:=0;
     for i:=1 to n do if (a[i] mod 2 = 0) then chan:=chan+a[i] else le:=le+a[i];
     writeln('Tong cac so chan duoc nhap vao la: ',chan);
     writeln('Tong cac so le duoc nhap vao la: ',le);
     readln;
end.

KHI NHẬP SỐ LƯỢNG PHẦN TỬ LÀ 4 VÀ LẦN LƯỢT NHẬP CÁC GIÁ TRỊ LÀ 12, 13, 14 VÀ 15 THÌ ĐƯỢC KẾT QUẢ NHƯ MÀN HÌNH!