--------------------------------------------------------------------------------------------
                                             ES CON SUBPROCESOS
--------------------------------------------------------------------------------------------

Hola, tengo un problema con este ejercicio de peseint, es una matriz unidimensional de 12 posiciones rellena con datos aleatorios entre 25 i 255. (simulando accidentes mensuales)

- Tengo que hacer la media de accidentes en todo el año.
- Que devuelva el numero de meses que ha habido mas accidentes que la media.
- Que devuelva el numero de meses que ha habido menos accidentes que la media.
- Numero que se ha producido menos de 50 accidentes.
- Numero que se ha producido menos de 125 accidentes.

Me dan estos errores:
Lin 16 (inst 1): ERROR 303: Subindice () fuera de rango (1...12)

Lin 80 (inst 1): ...dentro del subproceso SUP_MITJA, invocado desde aquí.

Subproceso mitja(accidentes)
	contador_mitja=1
	mitjana=0
	Repetir
		mitjana=mitjana+accidentes[contador_mitja]
		contador_mitja=contador_mitja+1
	Hasta Que contador_mitja = 13
	escribir mitjana/12
FinSubProceso
 
 
SubProceso sup_mitja(accidentes)
	contador_sup_mitja=1
	sup_mitjana=0
	Repetir
		si accidentes[contador_mitja]>mitjana
			Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes superior a la media."
		FinSi
		contador_sup_mitja= contador_sup_mitja+1
	Hasta Que contador_sup_mitja = 13
FinSubProceso
 
 
subproceso	sub_mitja(accidentes)
	contador_sub_mitja=1
	sub_mitjana=0
	Repetir
		si accidentes[contador_mitja]<mitjana
			Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes inferior a la media."
		FinSi
		contador_sub_mitja= contador_sub_mitja+1
	Hasta Que contador_sub_mitja = 13
FinSubProceso
 
 
SubProceso funcion_sub_50(accidentes)
	contador_sub_50=1
	sub_50 = 0
	Repetir
		si accidentes[contador_mitja]<50
			Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes inferior a 50."
		FinSi
		contador_sub_50= contador_sub_50+1
	Hasta Que contador_sub_50 = 13
FinSubProceso
 
 
SubProceso funcion_sup_125(accidentes)
	contador_sup_125=1
	sup_125=0
	Repetir
		si accidentes[contador_mitja]>125
			Escribir "El mes número "+convertirATexto(accidentes[contador_mitja])+" ha tenido una cantidad de accidentes superior a 125."
		FinSi
		contador_sup_125= contador_sup_125+1
	Hasta Que contador_sup_125 = 13
FinSubProceso
 
Proceso ejercicio_2
	contador=1
	Dimension accidentes[12]	
	//V2 - Introduccion de los accidentes de manera automática
 
	Repetir
		accidentes[contador]<-azar(130)+25
		contador=contador+1
	Hasta Que contador=13 
 
	mitja(accidentes)
	sup_mitja(accidentes)
	sub_mitja(accidentes)
	funcion_sub_50(accidentes)
	funcion_sup_125(accidentes)
 
FinProceso