Pascal/Turbo Pascal - encontrar el mayor, el menor y el mediano de una lista

   
Vista:

encontrar el mayor, el menor y el mediano de una lista

Publicado por Andre (9 intervenciones) el 20/04/2015 05:33:18
Porfabor ayudenme.
nesecito estructurar un programa que permita encontrar el mayor, el menor y el mediano, de una lista determinada por el usuario.
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

encontrar el mayor, el menor y el mediano de una lista

Publicado por ramon (2072 intervenciones) el 20/04/2015 11:24:13
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
{Mira esto a ver si te ayuda }
 
program listas;
 uses
    crt;
  const
      max = 21;
 
  var
    lista : array[1..max] of integer;
    mayor, menor, medio, n, num : integer;
 
  function existe(b : integer) : boolean;
  var
     k, s : integer;
  begin
      existe := false;
      for s := 1 to n - 1 do
      if lista[s] = b then
      existe := true;
  end;
 
  procedure carganumeros;
  begin
      n := 1;
    repeat
       num := random(max * 2) + 1;
       if existe(num) = false then
       begin
       lista[n] := num;
       n := n + 1;
       end;
    until n > max;
  end;
 
  procedure mayormenormedio;
  var
    temp, p, m : integer;
  begin
     for p := 1 to max do
       for m := max downto p + 1 do
       if lista[p] > lista[m] then
       begin
           temp := lista[p];
           lista[p] := lista[m];
           lista[m] := temp;
       end;
       mayor := lista[max];
       menor := lista[1];
       medio := lista[round(max / 2)];
  end;
 
 
  begin
      clrscr;
      randomize;
     carganumeros;
     writeln('  ***** Los Numeros Son *****');
     writeln;
     write('  ');
    for n := 1 to max do
    write(' ',lista[n]);
    mayormenormedio;
    writeln;
    writeln('   **** Los Valores Maximo Minimo Y Medio Son

****');
    writeln;
    writeln('  Maximo = ',mayor,'   Minimo = ',menor,'

Medio = ',medio);
    writeln;
    write('  ');
    for n := 1 to max do
    write(' ',lista[n]);
    readkey;
  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