1. 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.
  2. 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.
  3. 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.
  4. 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.
  5. 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.
  6. 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.
  7. 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.
  8. 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.
  9. 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.
  10. 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.