Pascal/Turbo Pascal - Arrays

Vale, pero eso no vale, puesto k si estamos en el caso de 1 2 3 0 0 0, daría tres, y sería el último 0 no el de después del 3. Muxas gracias por contestar a todos, aun no lo he resuelto xo seguiré pensando k así es como se aprende. Un saludo.

Ups perdón, esto era para contestar en otro sitio, me confundí, el título de la nota es arrays también.

HOLA:
Bea te aviso que la bebida es perjudicial para la salud

Bea: una pregunta, el array en cuestión ¿siempre tendrá valores positivos?.

saludos de nuevo Bea, ya veo que careces de imaginación
tengamos el caso de : 1 2 3 0 0 0

recorre el array hasta que el numero sea cero "primer cero"
contador=3
sigue recorriendo el array hasta que sea diferente de cero nuevo_contador=3
suma los dos contadores o usa el mismo contador , ultimo_elemento=6,

otra forma de hacerlo , usar numeros negativos para representar ceros primer
cero=0
segundo cero=-1
tercer cero=-2

otra forma de hacerlo , usa numeros mayores que no se vayan a usar en el array
primer cero=1.000.000 o numero mayor depende de lo que estes usando.

hay otras muchas formas de hacerlo , pero seguro que si nos dices que es lo que quieres hacer exactamente , encontraremos alguna solucion mejor , ya que lo que pides nunca he necesitado hacer algo parecido.

un SALUDO.

hola BEA . Tambien posteé más abajo y con otro ejemplo mas facil de entender.
SALUDOS al foro.