program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i,t,dc,da,tl,dx,x,max,min:integer;
begin
clrscr;
write('Nhap so nguyen n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
t:=0; dc:=0; da:=0; tl:=0; max:=A[1]; min:=A[1];
write('b. Mang vua nhap la: ');
for i:=1 to n do
begin
write(A[i],' ');
t:=t+A[i];
if A[i] mod 2=0 then dc:=dc+1 else tl:=tl+A[i];
if A[i]<0 then da:=da+1;
if A[i]>max then max:=A[i]
else if A[i]<min then min:=A[i];
end;
writeln;
writeln('c. Tong cac phan tu cua mang la: ',t);
writeln(' Trung binh cac phan tu cua mang la: ',t/n:0:3);
writeln('d. So luong so chan la: ',dc);
writeln(' So luong so am la: ',da);
writeln(' Tong cac so le la: ',tl);
writeln('Nhap x: '); readln(x);
dx:=0;
for i:=1 to n do
if A[i]<=x then dx:=dx+1;
writeln('e. Trong day co ',d,' so khong lon hon x');
writeln('f. Phan tu lon nhat la: ',max);
writeln(' Phan tu nho nhat la: ',min);
readln;
end.
