Pascal/Turbo Pascal - un ejer de pascal

   
Vista:

un ejer de pascal

Publicado por ariel (1 intervención) el 14/09/2007 21:11:13
Ingresar una secuencia números enteros y mostrar: El Promedio de los pares y el
mayor de los impares. hice este ejercicio y queria saber si estaba bien o no.

program ejer;
uses crt;
var
n,sump,mayor,contimpar,num:integer;
begin
clrscrs;
sump:=0
contimpar:=0
mayor:=num
writeln(ingrese secuencia de numeros)
readln(n);
for i:=1 to n do
begin
writeln(ingrese un numero)
readln(num);
if num>mayor then num:=mayor
then contimpar:=contimpar + 1
else
if n mod 2)= 0 then
begin
sump:=sump+1
contp:=contp + 1
end;
end;
promp:=sump/contp;
writeln(el prom de los pares es , promp)
writeln(el mayor de los impares es contp)
readckey
End
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:un ejer de pascal

Publicado por Diego Romero (997 intervenciones) el 15/09/2007 09:00:48
Esto ni siquiera compila...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:un ejer de pascal

Publicado por Mariano (1 intervención) el 27/09/2007 20:01:27
Hola!
Asi esta mal armado el programa,y no compila,
Bien hecho seria asi:

Program ParesImpares;
Uses
crt;

Procedure ObtDat(var x:integer);
begin
writeln('Ingrese un valor para obtener su secuencia');
readln(x)
end; {procedimiento ObtDat}

var
n,totimp,maypar,nimp:integer;
i:byte;
prom:real;

begin {bloque principal}
clrscr;
totimp:=0;
nimp:=0;
maypar:=0;
ObtDat(n);
For i:=1 to n do begin
if (odd(i)=True) then begin
totimp:=totimp + i;
inc(nimp)
end
else begin
if i> maypar then
maypar:=i
end
end;
prom:=totimp/nimp;
writeln('El mayor numero par es: ',maypar);
writeln('El promedio de impares es: ', prom:8:2);
readln
End.

Un abrazo!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar