vaya que me pusiste a pensar, también me estoy iniciando en esto de la programación, aquí te lo terminé:
|
Spoiler:
|
|
Program promedio_materias;
Uses wincrt;
type
vector=array [1..3] of string;
matriz=array [1..3,1..3] of real;
promedio=array [1..3] of real;
var
vecmateria: vector;
mat: matriz;
p: promedio;
i, f: integer;
sumas: array [1..3] of real;
suma: real;
BEGIN
for I:=1 to 3 do
Begin
Writeln ('Indicar Materia', I);
Readln (vecmateria[i]);
End;
for i:= 1 to 3 do
begin
For f:=1 to 3 do
Begin
Writeln ('Indicar nota de la materia: ', vecmateria[i], ' En el corte Numero: ', f );
Readln (mat[i,f]);
end;
end;
for i:= 1 to 3 do
begin
suma:= 0;
suma:= suma + mat[i, 1] + mat[i, 2] + mat[i, 3];
sumas[i]:= suma;
end;
for i:=1 to 3 do
begin
p[i]:= sumas[i]/3;
end;
for i:= 1 to 3 do
Begin
writeln ('El promedio de: ' ,vecmateria[i], 'fue de:' ,p[i]:2:2);
end;
readln;
END.
|
creo que es muy notable lo que hice, en dado caso de que no lo entiendas no dudes en poner tu duda acá y te lo explico con detalle,
Saludos