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.

program tong_hop;

uses crt;

var A:array [ 1 . . 100] of longint;

i,s,n: longint;

tb:real;

begin

writeln(' co so phan tu la '); readln(n);

witeln(' day so vua nhap la ');

for i:= 1 to n do begin

                           writeln(' so thu ', i,' la ');

                           readln(a[i]);

                           end;

writeln(' Cac so le la ');

for i:= 1 to n do if a[i] mod 2 <>0 then writeln(a[i], '  ,  ');

s:=0;

for i:=1 to n do s:=s+a[i];

tb:=s/n;

writeln(' tong cua cac so vua nhap la ', s);

writeln(' trung binh cong cac so vua nhap la', tb);

readln

end.