Prog

Enviado por Programa Chuletas y clasificado en Informática y Telecomunicaciones

Escrito el en español con un tamaño de 16,83 KB

Obtener la longitud de la cadena esternocleidomastoideo, utilizando la función LENGTH(S), que devuelve la longitud de la cadena S. PROGRAM EJER67; USES CRT; VAR cadena:STRING; BEGIN ClrScr; WRITELN ('Introduzca una cadena para saber su longitud:'); WRITELN (''); READLN (cadena); WRITELN (''); WRITE ('La longitud de la cadena es de: '); WRITE (LENGTH(cadena),' caracteres'); END.

Obtener la primera posición en la que comienza la subcadena fragi en la cadena supercalifragilisticoexpialidoso. Utilizar la función POS(SB,S) que devuelve la posición de la primera aparición de la subcadena SB en la cadena S. PROGRAM EJER68; USES CRT; VAR cadena:STRING; VAR subcadena:STRING; VAR posi:INTEGER; BEGIN ClrScr; cadena:='supercalifragilisticoexpialidoso'; subcadena:='fragi'; posi:=POS(subcadena,cadena); WRITE (posi); END.

Transformar la cadena Lenguaje Pascal en la cadena LENGUAJE PASCAL. Utilizar la función UPCASE(C) que transforma un carácter C a mayúscula. PROGRAM EJER69; USES CRT; VAR cadena:STRING; VAR i:INTEGER; BEGIN ClrScr; cadena:='Lenguaje Pascal'; i:=0; FOR i:=1 TO LENGTH(cadena) DO cadena[i]:=UPCASE(cadena[i]); WRITE (cadena); i:= i + 1; END.

Transformar la cadena "VACA" en la cadena "vaca". PROGRAM EJER70; USES CRT; VAR cadena:STRING; VAR i, v_ascii:INTEGER; BEGIN ClrScr; cadena:='VACA'; FOR i:=1 TO LENGTH (cadena) DO BEGIN v_ascii:=ORD (cadena[i]); cadena[i]:=(CHR(v_ascii+32)); END; WRITE (cadena); END.

Escribir un programa en Pascal que lea 4 datos, calcule y visualice en pantalla su producto, suma y media aritmética. PROGRAM EJER71; USES CRT; VAR a,b,c,d:REAL; VAR producto,suma,media:REAL; BEGIN ClrScr; WRITELN('Introduzca 4 datos para calcular las soluciones:'); WRITELN (''); WRITE ('a: '); READLN (a); WRITE ('b: '); READLN (b); WRITE ('c: '); READLN (c); WRITE ('d: '); READLN (d); WRITELN (''); producto:= a * b * c * d; suma:= a + b + c + d; media:= suma / 2; WRITELN ('El valor del producto de los numeros es: ', producto:10:2); WRITELN ('El valor de la suma de los numeros es: ', suma:10:2); WRITELN ('El valor de la media de los numero ses: ', media:10:2); END.

Escribir un programa en Pascal que escriba los números comprendidos entre 1 y 1000. El programa escribirá en la pantalla los números en grupos de20, solicitando al usuario si quiere o no continuar visualizando el siguiente grupo de números. PROGRAM EJER74; USES CRT; VAR num, flag, x:INTEGER; VAR resp:CHAR; BEGIN ClrScr; num:=0; x:=1; FOR num:=1 TO 100 DO BEGIN IF (num mod 20)= 0 THEN flag := x; WRITELN (num); IF flag = x THEN BEGIN WRITE('DESEA CONTINUAR: S/N --> '); READLN(resp); IF UPCASE (resp)<>'S' THEN BEGIN WRITE ('Este programa ha finalizado'); EXIT END; END; x:= x + 20; END; END.

Escribir un programa en Pascal que calcule, independientemente, la suma y la media de los números pares e impares comprendidos entre 1 y 200. PROGRAM EJER75; USES CRT; VAR media_p, media_i:REAL; VAR suma_p, suma_i:LONGINT; VAR i, total_p, total_i:LONGINT; BEGIN ClrScr; FOR i:=1 TO 200 DO BEGIN IF (i mod 2)=0 THEN BEGIN suma_p:=suma_p + i; total_p:=total_p + 1; END ELSE BEGIN suma_i:=suma_i + i; total_i:=total_i + 1; END; END; media_i:= suma_i / total_i; media_p:= suma_p / total_p; WRITELN ('La suma de los impares es: ',suma_i); WRITELN ('La suma de los pares es : ',suma_p); WRITELN ('La media de los impares es: ',media_i:5:2); WRITELN ('La media de los pares es: ',media_p:5:2); END.

Escribir un programa en Pascal que calcule el importe de una factura sabiendo que el IVA a aplicar es del 12% y que si el importe bruto de la factura es superior a 50.000 pts se debe realizar un descuento del 5%. PROGRAM EJER76; USES CRT; VAR i_bruto, i_neto, importe:REAL; CONST IVA=0.12; BEGIN ClrScr; WRITE ('Escriba el importe bruto: '); READLN (i_bruto); WRITELN (''); i_bruto:= i_bruto + (IVA * i_bruto); IF i_bruto > 50000 THEN BEGIN i_neto:= i_bruto - (i_bruto * 0.05); WRITE ('El importe neto con descuento del 5% es de: ', i_neto:5:2,' pts') END ELSE BEGIN i_neto:= i_bruto; WRITE ('El importe bruto sin descuento es de: ',i_neto:5:2, ' pts.'); END; END.

Escribir un programa en Pascal que calcule la suma de los cuadrados de los 100 primeros números enteros. PROGRAM EJER77; USES CRT; VAR x:INTEGER; VAR suma:REAL; BEGIN ClrScr; FOR x:=1 TO 100 DO BEGIN suma:= suma + (sqr(x)); END; WRITE (suma); END.

Escribir un programa en Pascal que visualice una tabla de conversión de kilómetros a millas marinas y millas terrestres: 1 milla marina = 1852 metros 1 milla terrestre = 1609 metros PROGRAM EJER78; USES CRT; VAR m, m_mar, m_terr:REAL; {metros, millas marinas y terrestres} BEGIN ClrScr; WRITE ('Introduzca el numero de metros: '); READLN (m); WRITELN (''); m_mar:=m/1852; m_terr:=m/1609; WRITE (m:5:2,' metros son: ',m_mar:5:2,' millas marinas y '); WRITE (m_terr:5:2,' millas terrestres'); END.

Escribir un programa en Pascal que lea 10 datos desde el teclado y sume sólo aquellos que sean negativos. PROGRAM EJER79; USES CRT; VAR y, suma:REAL; VAR x:INTEGER; BEGIN ClrScr; WRITELN ('Debe introducir 10 datos, se sumaran solo los negativos:'); WRITELN (''); FOR x:=1 TO 10 DO BEGIN WRITE('Introduzca el dato ',x:2,': '); READLN (y); IF y < 0 THEN suma := suma + y; END; WRITELN (''); WRITE ('El resultado de la suma de los numeros negativos es: '); WRITELN (suma:5:2); END.

Escribir un programa en Pascal que calcule el sueldo semanal de un trabajador a partir del número de horas trabajadas por día y las siguientes tarifas: 600 pts/hora Turno de mañana 800 pts/hora Turno de noche 1000 pts/hora Turno de días festivos PROGRAM EJER80; USES CRT; VAR t_mannana, t_noche, t_festivos:INTEGER; VAR total:LONGINT; BEGIN ClrScr; WRITE ('Introduzca las horas trabajadas por dia, en cada turno, '); WRITELN (' para calcular el sueldo semanal.'); WRITELN (''); WRITE ('Horas del turno de ma¤ana: '); READLN (t_mannana); WRITE ('Horas del turno de noche: '); READLN (t_noche); WRITE ('Horas del turno de dias festivos: '); READLN (t_festivos); WRITELN (''); total:=(600 * t_mannana) + (800 * t_noche) + (1000 * t_festivos); WRITE ('El sueldo semanal es de: ',total); END.

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.

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.

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.

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.

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.

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.

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.



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.

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.

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.

Escribir un programa en Pascal que determine la posición de la siguiente matriz en la que se encuentra el valor máximo. 23 45 68 34 99 12 25 78 89 PROGRAM EJER91B; USES CRT; CONST arr_num:ARRAY[1..3,1..3] of INTEGER=( (23,45,68), (34,99,12), (25,78,89) ); VAR i,j,val_max,pos_max_i,pos_max_j:INTEGER; BEGIN ClrScr; val_max:=arr_num[1,1]; FOR i:=1 TO 3 DO BEGIN FOR j:=1 TO 3 DO BEGIN IF arr_num[i,j] > val_max THEN BEGIN val_max:=arr_num[i,j]; pos_max_i:=i; pos_max_j:=j; END; END; END; WRITELN( 'VALOR MAXIMO: ', val_max:3, ' POSICION: ', pos_max_i:3,pos_max_i:3); END.

Escribir un programa en Pascal que sume, independientemente, los elementos positivos y negativos de la siguiente matriz: -12 23 32 45 -56 -10 25 78 89 PROGRAM EJER92; USES CRT; CONST arr_num:ARRAY [1..3,1..3] of INTEGER=( (-12,23,-32), (45,-56,-10), (25,78,89) ); VAR i,j,suma_p,suma_i:INTEGER; BEGIN ClrScr; FOR i:=1 TO 3 DO BEGIN FOR j:= 1 TO 3 DO BEGIN IF arr_num[i,j] >=0 THEN suma_p:= suma_p + arr_num[i,j] ELSE suma_i:= suma_i + arr_num[i,j]; END; END; WRITELN ('La suma de los numeros pares es: ',suma_p); WRITELN ('La suma de los numeros impares es: ',suma_i); END.

Escribir un programa en Pascal que multiplique por dos los elementos de la siguiente matriz: 4 7 8 6 9 1 5 0 3 PROGRAM EJER93; USES CRT; CONST arr_num:ARRAY [1..3,1..3] of INTEGER=( (4,7,8), (6,9,1), (5,0,3)); VAR mult,i,j:INTEGER; BEGIN ClrScr; FOR i:= 1 TO 3 DO BEGIN FOR j:=1 TO 3 DO BEGIN mult:=arr_num[i,j] * 2; WRITELN('Elemento (',i,',',j,') multiplicado por 2: ',mult:3); END; END; END.

Escribir un programa en Pascal que almacene en la segunda fila de la siguiente matriz los cuadrados de los datos de la primera fila: 3 6 7 8 9 0 0 0 0 0 PROGRAM EJER94; USES CRT; CONST arr_num:ARRAY [1..2,1..5] of INTEGER=( (3,6,7,8,9), (0,0,0,0,0)); VAR i,j,cuad:INTEGER; BEGIN ClrScr; i:=1; FOR j:=1 TO 5 DO BEGIN FOR i:=1 TO 1 DO BEGIN cuad:=sqr(arr_num[i,j]); arr_num[2,j]:= cuad; WRITELN (arr_num[2,j]); END; END; END.

Escribir un programa en Pascal que sume los datos de cada una de las filas de la siguiente matriz; el resultado se almacenará en la última posición de cada fila: 3 6 7 8 9 0 1 4 3 2 7 0 PROGRAM EJER95; USES CRT; CONST arr_num:ARRAY [1..2,1..6] of INTEGER=( (3,6,9,7,8,0), (1,4,3,2,7,0)); VAR i,j,suma1, suma2:INTEGER; BEGIN ClrScr; FOR i:=1 TO 2 DO BEGIN FOR j:=1 TO 6 DO BEGIN IF i=1 THEN suma1:= suma1 + arr_num[1,j]; IF i=2 THEN suma2:= suma2 + arr_num[2,j]; END; END; WRITELN ('La suma de la fila 1 es: ',suma1); WRITELN ('La suma de la fila 2 es: ',suma2); END.

Escribir un programa en Pascal que sume los datos de cada una de las columnas de la siguiente matriz; el resultado se almacenará en la última posición de cada columna: 3 2 4 6 8 9 0 0 PROGRAM EJER96; USES CRT; CONST arr_num:ARRAY [1..4,1..2] of INTEGER=( (3,2),(4,6), (8,9),(0,0)); VAR i,j,suma1,suma2:INTEGER; BEGIN ClrScr; FOR j:=1 TO 2 DO BEGIN FOR i:=1 TO 4 DO BEGIN IF j=1 THEN suma1:= suma1 + arr_num[i,j]; IF j=2 THEN suma2:= suma2 + arr_num[i,j]; END; END; WRITELN ('El resultado de la suma 1 es: ',suma1); WRITELN ('El resultado de la suma 2 es: ',suma2); END.

Escribir un programa en Pascal que sume los elementos de cada una de las filas y de las columnas de la siguiente matriz; el resultado de cada suma se almacenará en la última posición de la fila o columna correspondiente. Además la suma total de todos los elementos de la matriz se almacenará en el elemento de la esquina inferior derecha de la matriz: 1 7 0 5 6 0 6 4 0 7 3 0 0 0 0 PROGRAM EJER97; USES CRT; CONST arr_num:ARRAY [1..5,1..3] of INTEGER=( (1,7,0),(5,6,0), (6,4,0),(7,3,0), (0,0,0) ); VAR i,j,total:INTEGER; VAR suma_h,suma_v:INTEGER; {Es la suma horizontal y vertical} BEGIN ClrScr; FOR i:=1 TO 5 DO BEGIN FOR j:=1 TO 3 DO BEGIN suma_h:= suma_h + arr_num[i,j]; END; WRITELN ('La suma de la fila ',i,' es: ',suma_h:3); total:=total + suma_h; suma_h:=0; END; WRITELN (''); FOR j:=1 TO 2 DO BEGIN FOR i:=1 TO 5 DO BEGIN suma_v:= suma_v + arr_num[i,j]; END; WRITELN ('La suma de la columna ',j,' es: ',suma_v:3); suma_v:=0; total:=total + suma_v; END; WRITELN (''); WRITELN ('La suma total es: ',total); END.

Escribir un programa en Pascal que divida todos los elementos de una matriz M (3,4) por el elemento situado en la posición 2,2. PROGRAM EJER98; USES CRT; CONST arr_num:ARRAY[1..3,1..4] of INTEGER=( (23,45,-68,99), (45,65,-76,34), (56,-75,34,98)); VAR i,j:INTEGER; VAR divi:REAL; BEGIN ClrScr; FOR i:=1 TO 3 DO BEGIN FOR j:=1 TO 4 DO BEGIN divi:= arr_num[i,j] / arr_num[2,2]; WRITE ('Dividido ',arr_num[i,j]:3,' por el numero '); WRITELN (arr_num[2,2]:3,': ',divi:5:2); END; END; END.

Escribir un programa en Pascal que almacene en un array los números primos comprendidos entre 1 y 100. PROGRAM EJER99; USES CRT; VAR arr_num:ARRAY [1..100] of INTEGER; VAR flag:INTEGER; VAR i,num:INTEGER; BEGIN ClrScr; num:=1; WHILE num < 100 DO BEGIN FOR i:=2 TO (num-1) DO BEGIN IF (num mod i)=0 THEN flag:=1; END; IF flag<>1 THEN WRITELN (num:3,' es un n£mero primo.'); num:= num + 1; flag:=0; END; END.

Escribir un programa en Pascal que genera la matriz transpuesta de una matriz de 3 filas y 4 columnas. La matriz transpuesta de una matriz M(m,n) se obtiene intercambiando filas por columnas y viceversa; el resultado se tiene que almacenar en una nueva matriz M_TRANS(n,m). PROGRAM EJERC100; USES CRT; CONST matriz:ARRAY [1..3,1..4] of INTEGER=( (12,67,-23,-45), (45,-34,23,-12), (-34,22,88,-10)); VAR m_tra:ARRAY [1..4,1..3] of INTEGER; VAR f,c:INTEGER; BEGIN ClrScr; FOR c:=1 TO 3 DO BEGIN FOR f:=1 TO 4 DO BEGIN m_tra[f,c]:=matriz[c,f]; WRITE ('(',f,',',c,') '); WRITELN (m_tra[f,c]:3); END; END; END.

Escribir un programa en Pascal que genera la inversa de una cadena de caracteres. La cadena original y la invertida deben almacenarse en arrays independientes. PROGRAM EJERC101; USES CRT; VAR original: ARRAY [1..4] of STRING; VAR invertida:ARRAY [1..4] of STRING; VAR cadena:STRING; VAR i:INTEGER; BEGIN ClrScr; cadena:='hola'; FOR i:=1 TO LENGTH(cadena) DO BEGIN original[i]:= cadena[i]; WRITE (original[i]); END; WRITELN (''); FOR i:=LENGTH(cadena) DOWNTO 1 DO BEGIN invertida[i]:=cadena[i]; WRITE (invertida[i]); END; END.

Entradas relacionadas:

Etiquetas:
Escribir un programa en Java que multiplique los 20 primeros número naturales (1*2*3*4*5…). programa en c que calcule la suma de los numeros pares del 1 al 200 Escribir un programa en Lenguaje C que sume los elementos de cada una de las filas y de las columnas de la siguiente matriz; el resultado de cada suma se almacenará en la última posición de la fila o columna correspondiente. Además la suma total de t java algoritmo es mayor al 50000 pesetas se debe aplicar un descuento del programa pascal con un arreglo con los 20 primeros pares y calcule su suma escribir un programa que sume, independientemente, los elementos positivos y negativos de una matriz en c++ pascal que sume los numeros comprendidos entre 1 y 10 programa en pascal que rellene un array con los diez primeros números impares Obtener la primera posición en la que comienza la subcadena fragi en la cadena supercalifragilisticoexpialidoso en c suma de los números pares e impares de los números comprendidos del 1 al 200. calcula in C++ calcule, la suma y la media de los números pares e impares comprendidos entre 1 y 100 usando array. ... Rellenar un arreglo con los numeros enteros comprendidos entre 4 y 14 programo en pascal que introdusca n desde el teclado y sume solo aquellos que sean negativos ☺escribir un programa en pascal que multiplique por dos los elementos de la siguiente matriz numeros primos programa de java de millas marinas a metros escribir un programa que genera la matriz transpuesta de una matriz de 3 filas y 4 columnas. la matriz transpuesta de una matriz m(m,n) se obtiene intercambiando filas por columnas y viceversa; el resultado se tiene que almacenar en una nueva matriz NUMEROS IMPARES COMPRENDIDOS ENTRE 4 Y 14 programa que sume, independientemente, los elementos positivos y negativos dela siguiente matriz suma de numeros pares entre el 1 y el 200 java programa que escriba todos los numeros pares comprendidos suma de impares 1 al 200 programas Hacer un programa que calcule independientemente la suma de los pares y los impares de los numeros entre 1 y 1000 en c++ PROGRAMA QUE SUME NUMERO Y COLUMNAS Escribir un programa que almacene en la segunda fila de la matriz los cuadrados de los datos de PROGRAMA EN JAVA QUE OBTENGA NUMEROS COMPRENDIDOS DE 1 Y 1000 15. escribir un programa que muestre los números comprendidos entre 1 y 1000. el programa escribir en la pantalla los números en grupos de 20, y solicitando al usuario si quiere o no continuar visualizando el siguiente grupo de números. 92.- Escribir un programa en lenguaje C que almacene en la segunda fila de la siguiente 5 números enteros suma media java Calcular independientemente la suma de los números pares e impares comprendidos entre 1 y 200