Ejercicio 5-TP1

Program NotasPromedio;
{Este programa saca el promedio de cada materia de un ArchivoNotas que tiene las notas de 5 materias por cada alumno.}
Const
    MAXMaterias=5;
    MAXAlumnos=6;
Type
    Archivo_Notas=File of Real;
Type
    ArrReal=array[1..MAXMaterias] of Real;

Procedure CargarNotas(var ArchNotas:Archivo_Notas; var ArrNotas:ArrReal);
var
    i,j:integer;
Begin
    Rewrite(ArchNotas);
    For j:=1 to MAXAlumnos do
    Begin
        For i:=1 to MAXMaterias do
        Begin
            Readln(ArrNotas[i]);
            Write(ArchNotas,ArrNotas[i]);
        end;
    end;
end;

Procedure ImprimirArch(var ArchNotas:Archivo_Notas; ArrNotas:ArrReal);
var
    i:integer;
Begin
    Reset(ArchNotas);
    While (not EoF(ArchNotas)) do
    Begin
        For i:=1 to MAXMaterias do
        Begin
            Read(ArchNotas,ArrNotas[i]);
            Write(' ',ArrNotas[i]:0:0);
        end;
        Writeln();
    end;
end;

var
    ArchivoN:Archivo_Notas;
    ArregloN:ArrReal;
Begin
    Assign(ArchivoN,'/ip2/ndamilano-punto5tp1');
    Writeln('Ingrese las notas de cada alumno en las 5 materias: ');
    CargarNotas(ArchivoN,ArregloN);
    Writeln('Las notas son: ');
    ImprimirArch(ArchivoN,ArregloN);
    Close(ArchivoN);
end.