Pascal/Turbo Pascal - imprimir la posicion y el valor máximo de un vector

   
Vista:

imprimir la posicion y el valor máximo de un vector

Publicado por andrea (4 intervenciones) el 12/07/2015 08:28:27
ayuda por fabor
yenar un vector con 20 elementos, imprimir la posicion y el valor del elemento mayor almacenado en el vector.
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

imprimir la posicion y el valor máximo de un vector

Publicado por David (145 intervenciones) el 12/07/2015 20:45:01
Te propongo la siguiente solución:

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
Uses CRT;
 
const
  TOPE = 20;
 
Type
  TipoVector = Array [1..TOPE] of integer;
 
VAR
  I, MAYOR, POSI : INTEGER;
  VECTOR : TipoVector;
 
begin
   Randomize;
   {Llenamos el vector}
   For i:=1 to tope do
     VECTOR[I]:=random(100)+1;
   {Ahora buscamos el mayor}
   MAYOR := VECTOR[1];
   POSI:=1;
   For i:=2 to TOPE do
        if VECTOR[I]>MAYOR then
           begin
             MAYOR:=VECTOR[I];
             POSI:=I;
          end;
  Writeln('El mayor elemento del vector es: ',mayor,' en la posici¢n ',posi);
  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