Pascal/Turbo Pascal - consulta para diego romero :)

Realizar un programa que, en base al nombre de un estudiante y sus calificaciones, calcule el promedio de las mismas. De dicho estudiante se conocen 7 calificaciones (las cuales tienen un valor numérico comprendido entre 0 y 10, pudiendo ser la nota del estudiante un 5.50).

Program notas;
Var
sum, prom, nota: real;
nom: string [20];
i: integer;
begin
sum: =0;
Read (nom);
For i:=1 to 7 do
Begin
Read (nota);
sum:=sum+nota;
end;
prom:=sum/7;
Write (prom);
End.

q opinas??? esta bien para vos...??

muchas grax..!!

Básicamente está bien, pero hay detalles que se pueden mejorar, como por ejemplo, controlar que la nota ingresada no sea menor a cero ni mayor a 10 porque tal como está el programa puedes ingresar tranquilamente una nota tipo 12547.

Ah y usa ReadLn en vez de Read tanto en el string como en el real.

Declara una constante y úsala

CONST

NUMERO_NOTAS = 7;

Esto hace el programa más fácil de modificar