{Escribir un programa en Pascal que tras asignar los nmeros, 23, 45, 68, 99, 10, 15 y
4 a un ARRAY, determine las posiciones del ARRAY en las que se encuentran el mximo
y el mnimo valor.}
PROGRAM EJER90; {Autor: Victor Sanchez Sanchez email: [email protected]}
USES CRT;
CONST arr : ARRAY [1..7] OF
INTEGER = (23, 45, 68, 99, 10, 15, 4);
VAR i, mayor, menor, posi_mayor, posi_menor : INTEGER;
BEGIN
CLRSCR;
mayor := arr [1];
menor := arr [1];
FOR i := 2 TO 7 DO
BEGIN
IF arr [i] >= mayor THEN
BEGIN
mayor := arr [i];
posi_mayor := i;
END
ELSE
CONTINUE;
END;
WRITELN ('El numero mayor es: ', mayor : 3);
WRITELN ('Su posicion es: ', posi_mayor : 3);
WRITELN ('');
FOR i := 2 TO 7 DO
BEGIN
IF arr [i] <= menor THEN
BEGIN
menor := arr [i];
posi_menor := i;
END
ELSE
CONTINUE;
END;
WRITELN ('El numero menor es: ', menor : 3);
WRITELN ('Su posicion es: ', posi_menor : 3);
END.