#!/bin/sh

echo 'pedro\njuan\ndiego' > asistencia

alumnos=($(cat lista5 | awk '{print $1}'))
asistencia=($(cat asistencia))

len=${#alumnos[@]}

echo $len

for(( i=0; i<$len; i++ ))
do
   echo 'Asistio '${alumnos[${i}]}'? :'
   read ast
   asistencia[$i]="${asistencia[${i}]}\t$ast"
done

echo '' > asistencia
for(( i=0; i<$len; i++ ))
do
  echo ${asistencia[${i}]} >> asistencia
done