Pascal/Turbo Pascal - problema p solucionar, de Pascal. Ayuda?

   
Vista:

problema p solucionar, de Pascal. Ayuda?

Publicado por Manuela Barneche (1 intervención) el 09/10/2010 02:35:00
Hola a quienes lean ésto. Me gustaría si alguien tiene tiempo y ganas de ayudarme, si sabe cuál sería la programación en Pascal para un problema a resolver que dice así:

Se ingresan 10 números. Luego, se requiere saber el menor número ingresado, y luego el mayor.

De verdad agradecería si alguien me lo pasa, tengo tiempo hasta el lunes 18-10-10, dejo mi msn por si alguien me lo quiere mandar o contactarse conmigo para ayudarme. Estuve pensándolo por varios días, probando y me resulta muy difícil sacar la solución.

Manu.38@hotmail.com

muchas gracias!! :)
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:problema p solucionar, de Pascal. Ayuda?

Publicado por Sebastian (2 intervenciones) el 14/10/2010 04:27:53
program prueva;
uses crt;
var i:1..10;
may,men,x:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Ingrese el numero: '); readln(x);
end;
may:=x[1];
men:=may;
for i:=2 to 10 do
begin
if x[i]>may then may:=x[i];
if x[i]<men then men:=x[i];
end;
writeln(' El menor numero ingresado es: ',men);
writeln(' El mayor numero ingresado es: ',may);
reakey;
end.
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