program mang_tong_hop;
uses crt;
var A:array [1..500] of integer;
n,i,TB,d,TB1,d1,TB2,d2,TB3,d3: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod2<>0 then
begin
TB:=TB+A[i];
d:=d+1;
end;
writeln('TB cac phan tu le = ',TB/d:2:1);
for i:=1 to n do
if A[i] mod2=0 then
begin
TB1:=TB1+A[i];
d1:=d1+1;
end;
writeln('TB cac phan tu chan = ',TB1/d1:2:1);
for i:=1 to n do
if A[i]>0 then
begin
TB2:=TB2+A[i];
d2:=d2+1;
end;
writeln('TB cac phan tu duong = ',TB2/d2:2:1);
for i:=1 to n do
if A[i]<0 then
begin
TB3:=TB3+A[i];
d3:=d3+1;
end;
write('TB cac phan tu am = ',TB3/d3:2:1);
readln
End.
