movles

Escriba un algoritmo para la administración de un vector de N posiciones donde se desea obtener:
a. La sumatoria y el promedio de la primera mitad del vector
b. La sumatoria y el promedio de lasegunda mitad del vector
c. La sumatoria y el promedio de la primer y tercer tercio del vector
d. La sumatoria del tercio central del vector

Debe ser capaz de captar longitud par e impar
PROGRAMvector;
USES CRT;
Const
Min : 1;
Var
i : integer;
Max : real;
Suma_primera_mitad : real;
promedio_primera_mitad : real;
Suma_segunda_mitad : real;
promedio_segunda_mitad : real;Suma_primer_tercio : real;
promedio_primer_tercio : real;
Suma_tercer_tercio : real;
promedio_tercer_tercio : real;
Suma_tercio_central : real;
Arreglo : Array [Min . . Max ] of real;



BEGIN
BeginSuma_primera_mitad := 0l;
promedio_primera_mitad := 0;
Suma_segunda_mitad := 0 ;
promedio_segunda_mitad := 0;
Suma_primer_tercio := 0;
promedio_primer_tercio := 0;
Suma_tercer_tercio := 0;promedio_tercer_tercio := 0;
Suma_tercio_central := 0;
ClrScr;

Begin
Write (‘Ingrese longitud del vector: ’);
Readln(Max);
End;

Begin
For i: = VecMin to Arreglo.length Do
BeginWriteln('Ingrese un numero: ');
ReadLn(Arreglo[i]);
End;
End;
{pa las Mitades }
If Arreglo.length % 2 = 0 then

Begin

For i := VecMin to Arreglo.length/2 Do

Begin

Suma_primera_mitad :=Suma_primera_mitad + Arreglo [ i ];

End;

promedio_primera_mitad := Suma_primera_mitad / (Arreglo.length/2);

For i := (Arreglo.length/2) + 1 to Max Do
Begin
Suma_segunda_mitad :=suma_segunda_mitad + Arreglo[i];
promedio_segunda_mitad := suma_segunda_mitad / (Arreglo.Length/2);
End;
End;
Else
Begin
Writeln(‘No es Par el arreglo para calcular promedios de mitades’);
End;
{para lostercios}

Suma_tercio_central := 0;

If Arreglo.length % 3 = 0 then

Begin

For i := VecMin to Arreglo.length/3 Do

Begin

Suma_primer_tercio := Suma_primer_tercio + Arreglo [ i ];
End;...