uses crt;
var a,d : array[1..100] of integer;
i,n,s,j,min,max : integer;
begin clrscr; s:=0;
write('Nhap so phan tu :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do write(a[i]:3);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i] < min then min:=a[i];
for i:=2 to n do if a[i]>max then max:=a[i];
write('Gia tri lon nhat :', max);
writeln;
write('Gia tri nho nhat :', min);
for i:=1 to n do if a[i] mod 2 = 1 then write(a[i]:2);
for i:=1 to n do if a[i] mod 2 = 0 then write(a[i]:2);
for i:=1 to n do if a[i] mod 2 = 0 then s:=s+a[i];
write('Tong cac phan tu chan :', s);
readln
end.

program ct;

uses crt;

var i,n,tong,tongchan,Max,Min:integer;

      A:array[1..100] of integer;

begin

clrscr;

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

     for i:=1 to n do

begin

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

end;

{-----cau b -------}

  writeln('cac so vua nhap la');

     for i:=1 to n do 

         write(A[i],'  ');

{------cau c -------}

  Max:=A[1]; Min:=A[1];

      for i:=2 to n do

  begin

      if Max<A[i] then Max:=A[i];

      if Min>A[i] then Min:=A[i];

  end;

  writeln('gia tri lon nhat la:',Max);

  writeln('gia tri nho nhat la:',Min);

{-------cau d --------}

  writeln('cac so le trong mang la');

      for i:=1 to n do

         if A[i] mod 2=1 then write(A[i],'  ');

{------- cau e --------}

   writeln('cac so chan trong mang la');

     for i:=1 to n do

          if A[i] mod 2=0 then write(A[i],'   ');

{------- cau f --------}

  tong:=0; 

    for i:=1 to n do tong:=tong+A[i];

  writeln('tong cac phan tu la:',tong);

  tongchan:=0;

    for i:=1 to n do

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

    writeln('tong cac so chan la:',tongchan);

readln

end.