program mang_A;

uses crt;

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

      n,i,d:byte;

      t,tb,max:integer;

begin

       clrscr;

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

       write('A[1]= ');   readln(A[i]);

       t:=A[1];

       tb:=0;  d:=0;

       max:=A[1];

       if A[1] mod 2=0 then

              begin

                     tb:=tb+A[1];   

                     d:=d1;

              end;

       for i:=2 to n do

              begin

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

                     t:=t+A[i];

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

                     if A[i] mod 2=0 then

                            begin

                                   tb:=tb+A[i];

                                   d:=d+1;

                            end;

       end;

       writeln('a. Tong cac phan tu la: ',t);

       writeln('Phan tu lon nhat la: ',max);

       if d=0 then writeln('Khong co so chan de tinh trung binh')

             else writeln('Trung binh cong cac so chan la: ',tb/d:2:2);

       readln;

end.

#include<bits/stdc++.h>

using namespace std;

int
main ()
{

long long n, a[1000],s=0,x=0,b=0;

cin >> n;

for (int i = 1; i <= n; i++)

cin >> a[i];

for(int i=1;i<=n;i++)
 s=s+a[i];

sort(a+1,a+1+n);

for(int i=1;i<=n;i++)
 if(a[i]%2==0)

{

 x=x+a[i];

b=b+1;

}

cout<<s<<endl;

cout<<a[n]<<endl;

cout<<x/b<<endl;

}