Algoritmo 18 que lea N calificaciones y que diga cual es la mayor y cual la menor

Proceso Ncalificaciones
Escribir "cuantas calificaciones deseas registrar";
Leer N;
Escribir "dame calificacion de 0 a 10";
Leer calif;
may<-calif;
men<-calif;
Para x<-2 Hasta N Con Paso 1 Hacer
Escribir "dame calificacion de 0 a 10";
Leer calif;
Si calif>may Entonces
may=calif
Sino
FinSi
Si calif<men Entonces
men=calif
Sino
FinSi
Escribir "la calificacion mayor es:",may
Escribir "la calificacion menor es:",men
FinPara

FinProceso

Algoritmo 17 Que Lea 5 Calificaciones y diga cual es el mayor o menor

Proceso cincocalificaciones
Escribir "dame calificacion de 0 a 10";
Leer calif;
may<-calif;
men<-calif;
Para x<-2 Hasta 5 Con Paso 1 Hacer
Escribir "dame calificacion de 0 a 10";
Leer calif;
Si calif>may Entonces
may=calif
Sino
FinSi
Si calif<men Entonces
men=calif
Sino
FinSi
Escribir "la calificacion mayor es:",may
Escribir "la calificacion menor es:",men
FinPara

FinProceso

Algoritmo 15 Con Subproceso

SubProceso registranombre
Escribir " dame tu nombre:"

FinSubProceso

SubProceso escribenombre(nom)
Escribir " tu nombre es:",nom

FinSubProceso

Proceso pidenombre
registranombre
Leer nombre
Para X<-1 Hasta 5 Con Paso 1 Hacer
escribenombre(nombre)
FinPara

FinProceso

Algoritmo 14 que lea N numeros y que muestre si son positivos,negativos o Igual a cero (Repetir)

Proceso nnumeros
Escribir "cuantos numeros deseas registrar";
Leer N;
Repetir
Escribir "dame numero";
Leer A;
Si A=0 Entonces
Escribir "igual a cero";
Sino
Si A>0 Entonces
Escribir "positivo";
Sino
Escribir "negativo";
FinSi
FinSi
X=X+1
Hasta Que X=N
FinProceso

Algoritmo 13 que lea cinco numeros enteros y que muestre si son positivos,negativos o igual a cero(repetir)

Proceso cinconumerosenteros
Repetir
Escribir "dame numero";
Leer A;
Si A=0 Entonces
Escribir "igual a cero";
Sino
Si A>0 Entonces
Escribir "positivo";
Sino
Escribir "negativo";
FinSi
FinSi
X=X+1
Hasta Que X=5

FinProceso

Algoritmo 12 que lea N Numeros y que muestre si son positivos,negativos o igual a cero(mientras)

Proceso nnumeros
Escribir "cuantos numeros deseas registrar";
Leer N;
X=1
Mientras X<=N Hacer
Escribir "dame numero";
Leer A;
Si A=0 Entonces
Escribir "igual a cero";
Sino
Si A>0 Entonces
Escribir "positivo";
Sino
Escribir "negativo";
FinSi
FinSi
X=X+1
FinMientras

FinProceso

Algoritmo 11 que lea N Numeros y que muestre si son positivos,negativos o igual a cero(mientras)

Proceso nnumeros
Escribir "cuantos numeros deseas registrar";
Leer N;
X=1
Mientras X<=N Hacer
Escribir "dame numero";
Leer A;
Si A=0 Entonces
Escribir "igual a cero";
Sino
Si A>0 Entonces
Escribir "positivo";
Sino
Escribir "negativo";
FinSi
FinSi
X=X+1
FinMientras

FinProceso