Algoritmo sin_titulo
	dimension legajo[30,40]
	///Rellenar todos los datos con -1, por lo tanto nadie rindió
	Para f <- 1 hasta 30 Hacer
		Para c <- 1 hasta 40 hacer
			legajo[f,c] <- -1
		FinPara
	FinPara
	///Estructura para ingresar datos, cuando A=0, finaliza el ingreso
	Repetir
		Leer A
		Si A <>0 ENTONCES
			Leer m, c
			legajo[a,m] <- c
		FinSi
	Hasta Que A=0


	//Contador para el inciso A
	ia <- 0

	///Se recorre la Columna de la Materia 10 buscando notas>10
	Para f <- 1 hasta 30 Hacer
		Si legajo[f,10] = 10 entonces
			ia <- ia + 1
		FinSi
	FinPara

	Escribir "Notas sobresalientes de la materia 10 ",ia;

	///Se recorre por materia para hacer el promedio, actividad B

	Para c <- 1 hasta 30 Hacer
		prommat <- 0 //Con cada materia comienza en 0 este contador
		cont <- 0	//Este tambien
		Para f <- 1 hasta 40 Hacer
			Si legajo[f,c] <> -1 entonces //-1 porque tiene que haber rendido la materia
				prommat <- prommat + legajo[f,c] //Calcula la nota total
				cont <- cont +1 //Cantidad que rindieron la materia
			FinSi
		FinPara
		prommat <- prommat/cont //Calcular el promedio es decir Notas totales/Cantidad que rindieron
		Escribir "Promedio materia ",f," ",prommat
	FinPara


	///Actividad c
	//Contador en 0 para ver el alumno 10
	nor<- 0
	//Estructura para ver las materias que rindio el alumno 10
	Para c <- 1 hasta 30 hacer
		Si legajo[10,c] = -1 entonces //-1= a que no rindio la materia
			nor <- nor +1 //Si es verdadero, se suma 1 a ese contador
		FinSi
	FinPara

	Escribir "Cantidad de materias que no rindió ",nor

FinAlgoritmo