Viết chương trình nhập vào mảng a gồm n số nguyên. Tính và đưa ra màn hình tổng các số chẵn ở vị trí lẻ

program tongsochan;

uses crt;

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

      n,i,t:integer;

begin

clrscr;

write('Nhap so luong phan tu: ');

readln(n);

writeln('Nhap tung phan tu cua day:');

for i:=1 to n do

 begin

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

  readln(A[i]);

 end;

t:=0;

for i:=1 to n do

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

   t:=t+A[i];

write('Tong: ',t);

readln

end.

uses crt;
var i,n,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if (a[i] mod 2=0)and(i mod 2=1) then inc(t,a[i]);
      end;
   writeln(t);
readln
end.