Pascal/Turbo Pascal - Ayuda con procedure, URGENTE, por favor

 
Vista:

Ayuda con procedure, URGENTE, por favor

Publicado por Ing.Inf (1 intervención) el 20/11/2013 20:22:52
Hola, por favor, necesito ayuda para realizar este procedimiento. He intentado de todo y no lo consigo. Muchas gracias.

"Construya un procedimiento que, a partir de un vector de 10 enteros, proporcionado por el programa principal, devuelva el entero que más se repite en dicho vector. Si no hay ninguno o si hay más de uno que se repitan el mismo número de veces deberá informar sobre estos hechos."
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

Ayuda con procedure, URGENTE, por favor

Publicado por ramon (2158 intervenciones) el 21/11/2013 00:05:02
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
{Algo así sirve}
 
 program vector;
  uses
    crt;
  const
     num = 10;
  var
    vect : array[1..num] of integer;
    p, xx, nn, gg, v, tm : integer;
  begin
     clrscr;
     randomize;
     for v := 1 to num do
     begin
        tm := random(num) + 1;
        vect[v] := tm;
     end;
     tm := 0;
     xx := 0;
     nn := 0;
     for v := 1 to num do
     begin
       for tm := num downto v + 1 do
       if vect[v] = vect[tm] then
       begin
          nn := nn + 1;
          gg := vect[v];
       end;
         if nn > xx then
         begin
            xx := nn;
            p := gg;
            nn := 0;
         end;
      end;
     for tm := 1 to num do
     write('  ',vect[tm]);
     writeln;
     writeln('  El numero repetido Es = ',gg,'  Veces = ',xx);
     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