c:/gdsf/web/fuentes_pascal/ARRAY3.PAS

PROGRAM EJER90;
USES CRT;
CONST arr_num : ARRAY [1..7] OF
INTEGER = (23, 45, 68, 99, 10, 15, 4);
VAR i, val_max, val_min, pos_max, pos_min : INTEGER;
BEGIN
CLRSCR;
val_min := arr_num [1];
val_max := arr_num [1];
FOR i := 1 TO 7 DO
      BEGIN
      IF arr_num [i] > val_max THEN
         BEGIN
         val_max := arr_num [i];
         pos_max := i;
         END;
      IF arr_num [i] < val_min THEN
         BEGIN
         val_min := arr_num [i];
         pos_min := i;
         END;
      END;
WRITELN ('VALOR M�XIMO: ', val_max : 3, ' POSICI�N: ', pos_max : 3);
WRITELN ('VALOR M�NIMO: ', val_min : 3, ' POSICI�N: ', pos_min : 3);
END.