|
|
hola....mira necesito un programa que dado un numero N que te de el usuario...el programa haga
A. lea el arreglo
B. Imprimir el arreglo
C. Calcular la suma de los numero del arreglos
D. Calcular la media de los valores del arreglo
E. Calcular la cantidad de numeros pares e impares
F. Calcular cuantos numeros son mayores a la media y cuantos son menores a la media
G. Obtener un nuevo arreglo,tal que sus elementos sean la diferencia de los elementos sucesivos del arreglo dado
H. Transformar dicho arreglo,de tal forma que en las posiciones pares contengan un valor X dado
por ahora yo llegue hasta la E, porque me quede estancado, es decir, mira mi programa todo corre bien hasta que llegas a la parte que tienen que aparecer los numero impares y pares
program matrices;
uses crt;
var
vec: array [1..99999999] of integer;
i,n,suma,CONT:integer;
media:real;
begin
writeln ('de cuanto quiere que sea el arreglo');
readln (n);
writeln ('introduzca los valores');
for i:=1 to n do
begin
readln (vec );
end;
for i:=1 to n do
begin
writeln ('los valores del arreglo en la posicion ', i,' es', vec );
end;
for i:=1 to n do
suma:=suma + vec ;
writeln ('la suma del arreglo es ',suma);
media:=suma /n;
writeln ('la media es ', media:10:10);
for i:=1 to n do
if (vec mod 2) <> 0 then
CONT:=CONT +1;
writeln ('hay ',CONT,' numero impares'); {hasta aqui todo esta bien,pero en la siguiente condicion es donde se me cae el programa}
for i:=1 to n do
if (vec mod 2) = 0 then
CONT:=CONT+1; {aqui ya probe cambiando la variable a CONT1 o inicianisandola en 0 pero igual no me da, que es lo que tenfgo malo???}
writeln ('hay ',CONT,' numero pares');
{depues sigue el resto del programa pero todavia no lo he hecho por el problema que tengo arriba pero mas o menos tengo la idea de la letra F de las otra dos ni idea, si eres tan amable me las puedes explicar}
readln;
end.
agradesco tu respuesta
|