uses crt;
var i,n,sc,sl,max,min:longint; a:array[1..2000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap so nguyen thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then sc:=sc+a[i] else sl:=sl+a[i];
         if i=1 then 
            begin 
               max:=a[i];
               min:=a[i];
            end;
         if a[i]>max then max:=a[i];
         if a[i]<min then min:=a[i];
      end;
   writeln('Tong cac so chan: ',sc);
   writeln('Tong cac so le: ',sl);
   writeln('So lon nhat: ',max);
   writeln('So be nhat: ',min);
readln
end.

uses crt;
var a:array[1..100]of longint;
max,min,sc,sl,n,i:longint;
begin
clrscr;
write('n');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
begin
if a[i] mod 2= 0 then sc:=sc+a[i]
else sl:=sl+a[i];
end;
if max<a[i] then max:=a[i] else
  min:=a[i];
end;

writeln('tong chan',sc);
writeln('tong le',sl);
writeln('max',max);
writeln('min',min);
end.