Pascal/Turbo Pascal - pascal, mostrar numero mayor y menor ingreasdo por el usuario

   
Vista:

pascal, mostrar numero mayor y menor ingreasdo por el usuario

Publicado por andrea :D fire_diva@hotmail.es (1 intervención) el 25/06/2012 17:59:25
HALLO! estoy programando en turbo pascal, necesito hacer un programa que calcule de quince numeros ingresados por el usuario cual es el mayor y cual es el menor, el problema es que cuando lo ejecuto me muestra cual es el mayor cuando ingreso solo de un digito, pero al ingresar de dos digitos me dice que el numero mayor es 0. Les paso el codigo:

PROGRAM VEK;
USES CRT;
TYPE
WE=ARRAY[0..14] OF BYTE;
VAR
N:WE;
X,Y,CONT,MAY:INTEGER;
BEGIN
CLRSCR;
WRITELN('INGRESE QUINCE NUM');
FOR X:=0 TO 14 DO
BEGIN
READLN(N[X]);
END;
CONT:=N[X];
FOR X:=0 TO 14 DO
BEGIN
IF N[X]>CONT THEN
MAY:=N[X];

END;
WRITELN(MAY);
READLN;
END.
porfavooor me urge :l
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

pascal, mostrar numero mayor y menor ingreasdo por el usuario

Publicado por ramon (2072 intervenciones) el 26/06/2012 20:42:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{A ver Si sirve así}
 
PROGRAM VEK;
 USES
     CRT;
  TYPE
    WE = ARRAY[0..14] OF integer;
  VAR
    N : WE;
    X, Y, CONT, MAY:INTEGER;
  BEGIN
    CLRSCR;
    WRITELN('INGRESE QUINCE NUM');
    FOR X := 0 TO 14 DO
    BEGIN
     READLN(N[X]);
    END;
    for x := 0 to 14 do
      for y := 14 downto x do
      if n[x] > n[y] then
      begin
         cont := n[x];
         n[x] := n[y];
         n[y] := cont;
      end;
      writeln('El Menor Es : ',n[0]);
      WRITELN('El Mayor Es : ',n[14]);
      READLN;
   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

pascal, mostrar numero mayor y menor ingreasdo por el usuario

Publicado por Mariana mariana260696@hotmail.com (1 intervención) el 03/05/2014 02:20:52
Disculpa yo tengo que hacer un programa en turbo pascal que de la secuencua de numeros 5 3 0 2 4 4 0 0 2 3 0 6 0 2, contar e imprimir el numero de ceros de la secuencia .
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