Dadas 10 calificaciones de alumnos muestre el promedio del grupo

{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
uses
 crt;
const
 max=100;
type
 vector=array [1..max] of real;
var
 arreglo:vector;
 alumnos,cont1,cont2,materias:integer;
 temp,suma:real;
begin
 ClrScr;
 Write('Alumnos: ');Readln(alumnos);
 Write('Asignaturas: ');Readln(materias);
 Writeln;
 ClrScr;delay(800);
 
 for cont1:=1 to alumnos do
  begin
   writeln('Alumno ',cont1);
    for cont2:=1 to materias do
     begin
      write('Calificacion ',cont2,': ');Readln(temp);
      suma:=suma+temp;
     end;{suma}
    arreglo[cont1]:=suma/materias;{promedio insertado en el vector}
   writeln;
  end;{alumnos}
 
  suma:=0;
  for cont1:=1 to materias do
   begin
    suma:=arreglo[cont1]+suma;
   end;
 
   Write('Promedio grupal: ',suma/materias:0:2);
 ReadKey;
end.
Alulmnos: 7 Alumno 1: Calificación 1: 10 Calificación 2: 10 Calificación 3: 10 Calificación 4: 9 Calificación 5: 8 Calificación 6: 10 Calificación 7: 9 Calificación 8: 8 Calificación 9: 10 Calificación 10: 8 Alumno 2: Calificación 1: 10 Calificación 2: 9 Calificación 3: 8 Calificación 4: 10 Calificación 5: 8 Calificación 6: 9 Calificación 7: 10 Calificación 8: 10 Calificación 9: 10 Calificación 10: 8 Alumno 3: Calificación 1: 10 Calificación 2: 9 Calificación 3: 8 Calificación 4: 10 Calificación 5: 10 Calificación 6: 8 Calificación 7: 10 Calificación 8: 10 Calificación 9: 8 Calificación 10: 9 Alumno 4: Calificación 1: 10 Calificación 2: 9 Calificación 3: 10 Calificación 4: 8 Calificación 5: 9 Calificación 6: 10 Calificación 7: 9 Calificación 8: 10 Calificación 9: 8 Calificación 10: 10 Alumno 5: Calificación 1: 8 Calificación 2: 10 Calificación 3: 10 Calificación 4: 8 Calificación 5: 9 Calificación 6: 8 Calificación 7: 10 Calificación 8: 10 Calificación 9: 10 Calificación 10: 9 Alumno 6: Calificación 1: 10 Calificación 2: 9 Calificación 3: 9 Calificación 4: 10 Calificación 5: 9 Calificación 6: 9 Calificación 7: 9 Calificación 8: 9 Calificación 9: 9 Calificación 10: 10 Alumno 7: Calificación 1: 10 Calificación 2: 8 Calificación 3: 8 Calificación 4: 8 Calificación 5: 8 Calificación 6: 10 Calificación 7: 8 Calificación 8: 10 Calificación 9: 8 Calificación 10: 10 Promedio del grupo: 9.17142857143

¿Has encontrado algún error? ¿Tienes la solución? Dejame tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por personas con únicamente conocimiento básico del lenguaje, no de programación.

Otro punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C [c]Código en C[/c]
  • Si es lenguaje Pascal [pascal]Aquí dentro el código de Pascal[/pascal].

De esta manera el código coloreas el código.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el con lo siguiente:

Me reservo el derecho de alterar, publicar o no los comentarios as´ como cambiar mis condiciones en el momento que así lo requiera.

¿estas de acuerdo? entonces adelante que ya te he quitado bastante tiempo leyendo esta basura de advertencias :)