uses crt;

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

i,n,s,ss,min: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

ss:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (b[i]);

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

end;

ss:=b[1]+b[n];

min:=b[1];

for i:=2 to n do

if b[i]<min then min:=b[i];

writeln ('a/ Tong cac so chan la: ',s);

writeln ('b/ So nho nhat la: ',min);

writeln ('c/ Tong phan tu dau va cuoi la: ',ss);

readln;

end.

$#Trumtinhoc$

uses crt;
 var b : array[1..100] of integer ;
  n, i,s,min : integer ; 
   begin
    clrscr;
     write('N=');
      readln(n);
 for i := 1 to n do
     begin
    write('b',i,']=');
    readln(b[i]);
    if b[i] mod 2=0 
        then s := s + b[i];
     end ;
  min := b[1];
 for i := 2 to n do 
    if min > b[i] 
        then min := b[i];
    writeln('Tong cac so chan trong day la: ',s);
    writeln('Phan tu nho nhat la: ',min) ;
    writeln('Tong phan tu dau tien va cuoi cung la: ',b[1]+b[n]);
        end .