/*
1. escriba o haga  un programa que ayude  a  cualquier  estudiante  de  primeria  a  aprender  a multiplicar.
utlize una   funcion  que permita generar numeros aleatorios  y  asi producir  dos  enteros  positivos  de  dos  digitos .
despues debe escribir una pregunta como esta:¿cuanto es  6*7 entonces  el estudiante  escribe  la respuesta.
 el programa  verifica la respuesta si es correcta imprime muy bien y  hace  otra pregunta y si no  imprime "no sigue intentando",
lo que  permite al  estudiante  intentar la misma  pregunta  de  manera repetida  hasta contesta correctamente.
 ademas  se  pide  contar las  respuestas correctas e  incorrectas  del estudiante despues de  contestar 10 preguntas
el programa debe calcular  el porcentaje de  respueetas  correctas . is el porcentaje es  menor que  75%, su programa debe imprimir
"por favor estudia "y terminar---- con funciones  y dentro  de  un menu*/

//aqii esta  el  numero  aleatorio que   se utiliza  para realizar el programa el  cual  tienes   que   retornar  el aleatorio
funcion num_aleatorio1:arreglo[2] de  entero
entero al,i
arreglo[2] de  entero num
    inicio
    llamar inicializar_aleatorio
    para i<-1 hasta 2 haga
    num[i]<-aleatorio ()*100
    //escriba "",al
    llamar nueva_linea
    fin  para
    //escriba num[1],num[2]
    retorne num
fin

//fin aleatorio

funcion preguntas(arreglo[2]de entero numero):entero
entero resp,i,rp,contabu,contamal,promedio,total

inicio
total<-0
contabu<-0
contamal<-0
    //para i<-1 hasta 10 haga
       // numero<-num_aleatorio1()
      repita
        escriba  " cuanto es " ,numero[1], " x " , numero[2]
        resp<-numero[1]*numero[2]
        escriba " respuesta:"
        lea rp
            si rp=resp entonces
            escriba "##muy bien "
            contabu<-contabu+1
            numero<-num_aleatorio1()
            sino
            escriba "no sigue intentando"
            llamar nueva_linea
            contamal<-contamal+1
          
            fin si
            total<-contabu+contamal
            hasta total>=10
    //fin para

escriba "numero de  respuestas  buena ",contabu
llamar nueva_linea
escriba "numero de  respuestas  malas ",contamal
llamar nueva_linea
promedio<-(contabu*10)
llamar nueva_linea
escriba  " el promedio es",promedio,"%"
si promedio<75 entonces
llamar nueva_linea
escriba "SIGUE  ESTUDIANDO"
SINO  ESCRIBA "EXELENTE "
FIN SI
//escriba "el promedio es ",promedio
retorne resp

fin


    procedimiento  menu
    entero opc,preg
     arreglo[2] de  entero numero
    inicio
   
    repita
    llamar limpiar_pantalla
     escriba "                  *********MENU PRINCIPAL************           "
     llamar nueva_linea
     escriba "                 *************************************           "
     llamar nueva_linea
      llamar nueva_linea 
      llamar nueva_linea
       llamar nueva_linea  
     escriba "                     1.APRENDIENDO A  MULTIPLICAR             "
     llamar nueva_linea
     escriba "                     2.OTRO PROGRAMA "
     llamar nueva_linea
     escriba "                     0 salir"
     llamar nueva_linea
     escriba "                     escoja   una opcion "
     lea opc
         caso opc
                 1:
                   llamar limpiar_pantalla
                   escriba "MI SOFWARE"
                   llamar nueva_linea
                   escriba "   iniciar prueba...... "
                   llamar nueva_linea
                 numero<-num_aleatorio1()
                 preg<-preguntas (numero)
                
                 //escriba numero
                 llamar obtener_caracter
                 2:llamar limpiar_pantalla
         fin caso        
    hasta opc =0
    fin


inicio
llamar menu
fin

DESCARGA EL ARCHIVO LPP AQUÍ-