Ejercicio Mayor numero
Publicado por Rolando (2 intervenciones) el 21/05/2014 05:12:09
Hola, que tal. Acá una duda. al momento de correr el programa no me busca el mayor número, sino que me guarda la última posición con su valor. Si alguien puede ver el error favor decirme. Gracias de antemano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROGRAM MAYOR_NUMERO;
USES CRT;
CONST
N=5;TYPE
VECTOR=ARRAY[1..N] OF REAL;
VAR
I,POS:INTEGER;
MAYOR:REAL;R:VECTOR;BEGIN
CLRSCR;
MAYOR:=-1;
FOR I:=1 TO N DO
REPEAT
WRITELN('INGRESE EL NUMERO');
READLN(R[I]);
UNTIL(R[I]>=0)AND(R[I]<=5);
IF(R[I]>MAYOR)THEN
MAYOR:=R[I];
POS:=I;
WRITELN('EL NUMERO MAYOR ES ', MAYOR:0:0 ,' EN LA POSICION ', POS);
READKEY;
END.Valora esta pregunta
0