Ayuda en pseint!!

[stR_ruBen]

--------------------------------------------------------------------------------------------
                                             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í.

Código (php) [Seleccionar] Expandir

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