Pascal/Turbo Pascal - Alguien que pueda ayudarme a hallar el máximo valor y su posición

   
Vista:

Alguien que pueda ayudarme a hallar el máximo valor y su posición

Publicado por Roy rjbu007@gmail.com (1 intervención) el 23/08/2013 01:29:18
Buenas Noches, necesito ayuda con este programa en PASCAL, me esta pidiendo hallar el máximo valor y su posición, no logro hallar la manera de hacerlo, les agradecería su ayuda!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PROGRAM EJER_UNO;
USES WINCRT;
CONST
N= 10;
TYPE
arr_num=ARRAY[1..N] of INTEGER;
VAR i,a,posi_max,val_max:INTEGER;
BEGIN
ClrScr;
writeln ('Ingrese los Números');
readln(arr_num[i]);
FOR a:=1 TO N DO
begin
IF arr_num[i] > val_max THEN
BEGIN
val_max:=arr_num[i];
posi_max:=a;
END;
END;
WRITE('VALOR MAXIMO: ', val_max, ' POSICION: ', posi_max);
END.
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

Alguien que pueda ayudarme a hallar el máximo valor y su posición

Publicado por Christian cgaray2002@hotmail.com (8 intervenciones) el 26/08/2013 07:45:47
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PROGRAM EJER_UNO;
USES crt;
CONST N= 10;
 
VAR
   arr_num : ARRAY[1..N] of INTEGER;
   i,a,posi_max,val_max : INTEGER;
BEGIN
     ClrScr;
     writeln ('Ingrese los Números: ');
     for i:=1 to N do readln(arr_num[i]);
     val_max:=0; {inicializamos la variable val_max en 0}
     FOR a:=1 TO N DO
     begin
          IF arr_num[a] > val_max THEN
          BEGIN
               val_max:=arr_num[a];
               posi_max:=a;
          END;
     END;
     WRITE('VALOR MAXIMO: ', val_max, ' POSICION: ', posi_max);
     repeat until keypressed;
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