uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        s:=s+a[i];
    end;
    write('Mang vua nhap: ');
    for i:=1 to n do write(A[i],' ');
    writeln;
    write('Cac so le tron mang: ');
    for i:=1 to n do if a[i] mod 2<>0 then write(a[i],' ');
    writeln;
    writeln('Tong vua nhap: ',s);
    writeln('Trung binh cong cac so vua nhap: ',(s/n):4:2);
    readln
end.

uses crt;
var A:array[1..100] of longint;
n,i:longint;
s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
s:=s+A[i];
end;
write('Day so vua nhap: ');
for i:=1 to n do
write(A[i],',');
writeln;
write('Cac so le: ');
for i:=1 to n do
if A[i] mod 2<>0 then write(A[i],',');
writeln;
writeln('Tong cac so cua nhap: ',s:0:2);
write('Trung binh cong: ',s/n:0:2);
readln
end.