Lời giải :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
min,i,n,dem : integer ;
tbc : real ;
begin
write('Nhap do dai cua mang :'); readln(n);
writeln('Nhap cac phan tu cua mang');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=a[1]; tbc:=0; dem:=0;
for i:= 1 to n do
begin
if a[i]<min then min:=a[i];
if a[i] mod 2 <> 0 then tbc:=(tbc+a[i])/i;
if a[i] mod 5=0 then dem:=dem+1;
end;
write('So be nhat trong day la :,min);
write('Trung binh cong cac so le la :,tbc);
write('Trong day co ',dem,' chia het cho 5');
readln
end.