base de datos profe 13 ultimooooo

Proceso sin_titulo
Dimension promedio(10)
Dimension n(10,10)
Para i<-1 Hasta 10 Con Paso 1 Hacer
pt<-0
Para j<-1 Hasta 3 Con Paso 1 Hacer
n(i,j)<-azar(9)
//Escribir "nota_",j,"_del alumno_",i
//Escribir n(i,j)
pt<-pt+n(i,j)
FinPara
promedio(i)<-pt/3
FinPara
Escribir "nota 1","  ","nota 2","  ","nota 3"
para m<-1 hasta 10 Con Paso 1 Hacer
Escribir n(m,1),"        ",n(m,2),"        ",n(m,3) 
FinPara
x<-1
Mientras x<=1 Hacer
Escribir "escribir 1 si desea continuar y 2 si desea terminar";
leer x
Si x=1 Entonces
Escribir "nota del alumno con codigo"
leer nota
Escribir "NOTA 1:",n(nota,1)
Escribir "NOTA 2:",n(nota,2)
Escribir "NOTA 3:",n(nota,3)
a <- promedio(nota)
r <- REDON(a*100)/100;
Escribir "PROMEDIO::::", r
Sino
FinSi
FinMientras
FinProceso