Programación 1045
Definir variables
I, n, x, c0, c60, c70, c80, c90: enteros;
Inicio
Escribir (' n=?') ; readln(n);
Writeln('Por favor ingrese', n, 'puntaje del estudiante'
Para i:=1 to n do
Inicio
Leer como (x);
Caso i div 10 de
6: C6: = C6 1;
7: C7:= C7 1;
8: c8:= c8 1;
9: C9:= C9 1;
10: C9:= C9 1 ;
else c0:= c0 1;
Fin de caso
Fin;
Writeln('0-59:',c0 );
Escribir('60-69 puntos:', C6);
Escribir('70-79 puntos:', C7);
Escribir ('80-89 puntos:', c8);
Writeln('90-100:', C9);
Fin.