program Mang;
uses crt;
var a:array[1..50] of integer;
i,n,Sle,Schan,TB:integer;
begin
Schan:=0;Sle:=0;
writeln('Nhap vao so phan tu:');
readln(n);
for i:=1 to n do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i] mod 2=1 then Sle:=Sle+a[i];
if a[i] mod 2=0 then Schan:=Schan+a[i]
TB:=a[i]/n;
end;
writeln('Tong cac so chan la:',Schan);
writeln('Tong cac so le la:',Sle);
writeln('Gia tri TB la:',TB);
readln
end.