Pascal/Turbo Pascal - ayuda es urgente

ayudenme por fa estoy trancado en un programa y no se que hacer este es su enunciado:

se desea diseñar un algoritmo que, dada una cantidad de materias(determinada por el usuario) y una lista de las notas obtenidas por los estudiantes en cada materia(la cual finaliza en un numero negativo, en este caso -1) determine la ota promedio y la mayor nota por materia.


le agradeceria me yuden no se que hacer estoy desesperado y es para miercoles 8 de noviembre ayudenme .

mi correo es [email protected] gracias

¡Hola Alejandro! ¿Es ésto lo que necesitas? Espero que te sea de utilidad. Un abrazo.

program Notas_Escolares;

uses crt;

var
cantMaterias, i : byte;
nota, maxima,suma : real;
cantidad : word;
begin
ClrScr;
Write('Cantidad de materias: ');
ReadLn(cantMaterias);
for i:=1 to cantMaterias do
begin
suma:=0;
cantidad:=0;
maxima:=0;
ClrScr;
Write('Ingrese una nota para la materia ',i,': ');
ReadLn(nota);
while nota <> -1 do
begin
suma:=suma + nota;
cantidad:=cantidad + 1;
if nota > maxima then
maxima:=nota;
Write('Ingrese una nota para la materia ',i,': ');
ReadLn(nota);
end;
WriteLn;
WriteLn('La nota promedio de la materia ',i,' es ',(suma / cantidad):0:2);
WriteLn('La nota m xima de la materia ',i,' es ',maxima:0:2);
ReadLn;
end;
end.

aaaaaa graxeee por la ayuda jejejejeje d epana gracias gracias ya lo voya probar....:D

hola soy nueva usando pascal y necesito hacer un programa que me determine los numeros primos comprendidos entre 1 y 1000

claro con mucho gusto yo tengo un programa que busca los numeros primos si quieres lo busco y te lo paso?? vale???