Escribir un programa en Pascal que rellene un array con los números
enteros comprendidos entre 4 y 14.

PROGRAM EJER81;
        USES CRT;
        VAR arr_num:ARRAY [4..14] of INTEGER;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=4 TO 14 DO
         arr_num[i]:=i;

     FOR i:=4 TO 14 DO
     BEGIN
          WRITELN('Numero: ',arr_num[i]);
     END;
END.


PROGRAM EJER81;
        USES CRT;
        VAR arr_num:ARRAY[1..11] of INTEGER;
        VAR i,num:INTEGER;
BEGIN
     ClrScr;

     num:=4;

     FOR i:=1 TO 11 DO
     BEGIN
          arr_num[i]:=num;
          num:=num+1;
     END;

     FOR i:=1 TO 11 DO
     BEGIN
          WRITE('Posición ',i:2, ': '); WRITELN(arr_num[i]:5);
     END;
END.

Escribir un programa en Pascal que rellene un array con los números
pares comprendidos entre 1 y 10.

PROGRAM EJER82; 
        USES CRT;
        VAR arr_num:ARRAY [1..10] of INTEGER;
        VAR i, b:INTEGER;
BEGIN
     ClrScr;
     i:=1;

     WHILE i <= 10 DO
     BEGIN
          arr_num[i]:=i;

          IF (i mod 2)=0 THEN
          BEGIN
             WRITELN(arr_num[i]);
          END;

          i:= i + 1;
     END;
END.


PROGRAM EJER82;
        USES CRT;
        VAR arr_num:ARRAY[1..10] of INTEGER;
        VAR i,num:INTEGER;
BEGIN
     ClrScr;
     i:=1;
     num:=1;

     WHILE num<=10 DO
     BEGIN
          IF num mod 2 = 0 THEN
          BEGIN
               arr_num[i]:=num;
               i:=i+1;
          END;
          num:=num+1;
     END;

     arr_num[i]:=3;
     i:=1;

     WHILE arr_num[i] <> 3 DO
     BEGIN
          WRITE('Posicion ',i:2,' : '); WRITELN(arr_num[i]:5);
          i:=i+1;
     END;
END.

Escribir un programa en Pascal que rellene un array con los números
comprendidos entre 25 y 35 divididos por 3.

PROGRAM EJER83; 
        USES CRT;
        VAR arr_num:ARRAY [1..11] of REAL;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=25 TO 35 DO
         arr_num[i]:=i;

     FOR i:=25 TO 35 DO
         WRITELN(arr_num[i] / 3:5:2);
END.


PROGRAM EJER83;
        USES CRT;
        VAR arr_num:ARRAY[1..11] of REAL;
        VAR i,num:INTEGER;
BEGIN
     ClrScr;

     i:=1;
     num:=025;

     FOR i:=1 TO 10 DO
     BEGIN
          arr_num[i]:=num/3;
          num:=num+1;
     END;

     i:=1;

     WHILE i <= 10 DO
     BEGIN
          WRITE('Posicion ',i:2, ': '); WRITELN(arr_num[i]:5);
          i:=i+1;
     END;
END.


Escribir un programa en Pascal que rellene un array con cinco
números enteros consecutivos y haga una copia de ese array en otro.

PROGRAM EJER84; 
        USES CRT;
        VAR arr_num1,arr_num2:ARRAY [5..10] of INTEGER;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=5 TO 10 DO
     BEGIN
         arr_num1[i]:=i;
         arr_num2[i]:=arr_num1[i];
     END;

     FOR i:=5 TO 10 DO
         WRITELN (arr_num2[i]);

END.


PROGRAM EJER84;
        USES CRT;
        VAR arr_num1,arr_num2:ARRAY[1..5] of INTEGER;
        VAR i,num:INTEGER;
BEGIN
     ClrScr;

     i:=1;
     num:=100;

     FOR i:=1 TO 5 DO
     BEGIN
          arr_num1[i]:=num;
          num:=num+1;
     END;

     FOR i:=1 TO 5 DO
          arr_num2[i]:=arr_num1[i];

     i:=1;

     WRITELN('ARRAY 1   ARRAY 2':30);

     WHILE i <= 5 DO
     BEGIN
          WRITE('Posicion ',i:2, ': ');
          WRITE(arr_num1[i]:5);
          WRITELN(arr_num2[i]:10);
          i:=i+1;
     END;
END.

Escribir un programa en Pascal que rellene un array de 10 elementos
con los números comprendidos entre 23 y 32 y copie en otro array esos
números multiplicados por 0.35.

PROGRAM EJER85; 
        USES CRT;
        VAR arr_num1, arr_num2:ARRAY [23..32] of REAL;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=23 TO 32 DO
     BEGIN
          arr_num1[i]:=i;
          arr_num2[i]:=(arr_num1[i] * 0.35);
     END;

     FOR i:=23 TO 32 DO
         WRITELN(arr_num2[i]:5:2);
END.


PROGRAM EJER85;
        USES CRT;
        VAR arr_num1,arr_num2:ARRAY[1..10] of REAL;
        VAR i,num:INTEGER;
BEGIN
     ClrScr;

     i:=1;
     num:=23;

     FOR i:=1 TO 10 DO
     BEGIN
          arr_num1[i]:=num;
          num:=num+1;
     END;

     FOR i:=1 TO 10 DO
         arr_num2[i]:=arr_num1[i]*0.35;

     i:=1;
     WRITELN('ARRAY 1   ARRAY 2':30);

     WHILE i <= 10 DO
     BEGIN
          WRITE('Posicion ',i:2, ': ');
          WRITE(arr_num1[i]:5:2);
          WRITELN(arr_num2[i]:10:2);
          i:=i+1;
     END;
END.


Escribir un programa en Pascal que rellene un array con los veinte
primeros números pares y calcule su suma.

PROGRAM EJER86; 
        USES CRT;
        VAR arr_pares:ARRAY [1..40] of INTEGER;
        VAR i, suma:INTEGER;
BEGIN
     ClrScr;

     i:=1;

     FOR i:= 1 TO 40 DO
     BEGIN
          IF (i mod 2) = 0 THEN
          BEGIN
               arr_pares[i]:=i;
               suma:= suma + i;
          END;
     END;

     WRITELN('La suma de los 20 primeros numeros pares es: ',suma);
END.


PROGRAM EJER86;
        USES CRT;
        VAR arr_num:ARRAY[1..25] of INTEGER;
        VAR i,num,suma_par:INTEGER;
BEGIN
     ClrScr;

     i:=1;
     num:=1;
     suma_par:=0;

     WHILE i<=20 DO
     BEGIN
          IF num mod 2 = 0 THEN
          BEGIN
               arr_num[i]:=num;
               i:=i+1;
               suma_par:=suma_par+num;
          END;
          num:=num+1;
     END;

     i:=1;

     WHILE i <= 20 DO
     BEGIN
          WRITE('Posición ',i:2, ': ');
          WRITELN(arr_num[i]:5);
          i:=i+1;
     END;
     WRITE('SUMA: ', suma_par:12);
END.



Escribir un programa en Pascal que solicite cinco números, los
almacene en un array y luego calcule la media aritmética de esos números.

PROGRAM EJER87; 
        USES CRT;
        VAR arr_num:ARRAY [1..5] of REAL;
        VAR i, num:INTEGER;
        VAR media:REAL;
BEGIN
     ClrScr;

     WRITELN ('Escriba 5 numeros para hacer su media aritmetica: ');

     FOR i := 1 TO 5 DO
     BEGIN
         READLN(num);
         arr_num[i]:=num;
     END;

     FOR i:=1 TO 5 DO
     media:= media + arr_num[i];

     media:= media / i;

     WRITELN ('La media aritmetica es: ',media:5:2);
END.


PROGRAM EJER87;
        USES CRT;
        VAR arr_num:ARRAY[1..10] of REAL;
        VAR num,suma,media:REAL;
        VAR i:INTEGER;
BEGIN
     ClrScr;

     i:=0;
     suma:=0;
     media:=0;

     WHILE i<5 DO
     BEGIN
          WRITE('Numero ',i+1,'--->');  READLN(num);
          arr_num[i]:=num;
          suma:=suma+num;
          i:=i+1;
     END;

     media:=(suma/i);

     WRITE('Media: ', media:5:2);
END.



Escribir un programa en Pascal que tras asignar los números,
23, 45, 68, 99, 10, 15 y 4 a un array, determine la posición del array
en la que se encuentra el máximo valor.

PROGRAM EJER88; 
        USES CRT;
        CONST arr_num:ARRAY [1..7] of INTEGER=(23,45,68,99,10,15,4);
        VAR i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=1 TO 7 DO
     BEGIN

     IF arr_num[i]=99 THEN
        WRITE ('La posicion del mayor numero (',arr_num[i],') es:
	',i);
     END;
END.



PROGRAM EJER88;
        USES CRT;
        CONST arr_num:ARRAY[1..7] of INTEGER=(23,45,68,99,10,15,4);
        VAR i,posi_max,val_max:INTEGER;
BEGIN
     ClrScr;

     FOR i:=1 TO 7 DO
     BEGIN
          IF arr_num[i] > val_max THEN
          BEGIN
               val_max:=arr_num[i];
               posi_max:=i;
          END;
     END;

     WRITE('VALOR MAXIMO: ', val_max, ' POSICION: ', posi_max);
END.

Escribir un programa en Pascal que tras asignar los números,
-2, 5, 8, -9, 10, 15 y -4 a un array calcule, independientemente, la suma
de los elementos positivos y negativos.

PROGRAM EJER89; 
        USES CRT;
        CONST arr_num:ARRAY [1..7] of INTEGER=(-2,5,8,-9,10,15,-4);
        VAR i:INTEGER;
        VAR suma_p, suma_i:INTEGER;
BEGIN
     ClrScr;

     FOR i:=1 TO 7 DO
     BEGIN
          IF arr_num[i] >= 0 THEN
             suma_p:= suma_p + arr_num[i]
          ELSE IF arr_num[i] < 0 THEN
             suma_i:= suma_i + arr_num[i];
     END;

     WRITELN ('La suma de los numeros pares es:    ',suma_p);
     WRITELN ('La suma de los numeros impares es: ',suma_i);
END.


PROGRAM EJER89;
        USES CRT;
        CONST arr_num:ARRAY[1..7] of INTEGER=(-2,5,8,-9,10,15,-4);
        VAR i,suma_pos,suma_neg:INTEGER;
BEGIN
     ClrScr;

     FOR i:=1 TO 7 DO
     BEGIN
          IF arr_num[i] > 0 THEN
              suma_pos:=suma_pos+arr_num[i]
          ELSE
              suma_neg:=suma_neg+arr_num[i];
     END;

     WRITELN('SUMA POSITIVOS: ', suma_pos);
     WRITELN('SUMA NEGATIVOS: ', suma_neg);
END.


Escribir un programa en Pascal que tras asignar los números,
23, 45, 68, 99, 10, 15 y 4 a un array, determine las posiciones del array
en las que se encuentran el máximo y el mínimo valor.

PROGRAM EJER90; 
        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.


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 MAXIMO: ', val_max:3, ' POSICIÓN: ', pos_max:3);
     WRITELN('VALOR MINIMO: ', val_min:3, ' POSICIÓN: ', pos_min:3);
END.

Volver