s4rk4

Tengo un documento que viene estupendamente explicado y con TODOS los procedimientos hechos en pascal... Buscalo aquí http://www.escet.urjc.es/~edi/Sistemas/documentos/Tema3.2_Arboles.pdf Si tienes alguna duda ya sabes, aquí estoy ;)

Prueba a hacer esto, en vez de utilizar el mismo contador y para no sobrecargar el ordenador utiliza el mismo for con 2 contadores, es decir CONT y CONT1 CONT:=0; CONT1:=0; for i:=1 to n do if (vec mod 2)<>0 then CONT:=CONT+1; else CONT1:=CONT1+1;...