uses crt;

var a:array[1..100000] of longint;

      i,j,n,tong:longint;

begin

clrscr;

write('Nhap do dai cua day: ');readln(n);

for i:=1 to n do

  begin

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

  end;

tong:=0;

for i:=1 to n do

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

for i:=1 to n do 

for j:=n downto 1 do

if a[i] mod 2=0 then break;

if a[j] mod 2=0 then break;

writeln('Tong cac so chan trong day: ',tong);

writeln('So chan dau tien: ',a[i]);

writeln('So chan cuoi cung: ',a[j]);

readln;

end.

uses crt;

var a : array[1..100] of integer;

i, n, s : integer;

begin

clrscr;

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

s := 0;

for i := 1 to n do

begin

clrscr;

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

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

end;

writeln('Trong so chan : ', s);

write('Gia tri chan dau tien : ');

for i := 1 to n do

if a[i] mod 2 = 0 then begin write(a[i]); break end;

writeln;

write('Gia tri chan cuoi cung : ');

for i := n downto 1 do

if a[i] mod 2 = 0 then begin write(a[i]); break end;

readln

end.