Alguien que pueda ayudarme a hallar el máximo valor y su posición
Publicado por Roy (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
0