Arreglos unidimensionales
Enviado por LalitoPP • 31 de Octubre de 2021 • Práctica o problema • 2.333 Palabras (10 Páginas) • 100 Visitas
Ejercicio 1 Arreglo unidimensional
Algoritmo Suma_2_Vectores
Dimension a[1000],b[1000],s[1000]
definir a, b, s, i, n como entero
Escribir sin saltar "Captura el número de elementos de los vectores a sumar: "
Leer n
Para i<-0 Hasta n-1 Con Paso 1 Hacer
a[i]<-azar(1000)
Fin Para
Escribir sin saltar "Elementos del arreglo A"
Para i<-0 Hasta n-1 Con Paso 1 Hacer
escribir sin saltar " ",a[i]
Fin Para
escribir " "
Para i<-0 Hasta n-1 Con Paso 1 Hacer
b[i]<-azar(1000)
Fin Para
Escribir sin saltar "Elementos del arreglo B "
Para i<-0 Hasta n-1 Con Paso 1 Hacer
escribir sin saltar " ",b[i]
Fin Para
escribir " "
Para i<-0 Hasta n-1 Con Paso 1 Hacer
s[i]<-a[i]+b[i]
Fin Para
Escribir sin saltar "Elementos del arreglo S que es la suma de A y B "
Para i<-0 Hasta n-1 Con Paso 1 Hacer
escribir sin saltar " ",s[i]
Fin Para
FinAlgoritmo
//Hurtado Dominguez Eduardo
//Gomez Paredes Vicente Francisco[pic 1]
[pic 2]
Ejercicio 2 Arreglo unidimensional
Algoritmo sin_titulo
Dimension a[100],b[100],s[100]
definir a, b, i, n como entero
Escribir sin saltar "Captura el número de elementos de los vectores a sumar: "
Leer n
Para i<-0 Hasta n-1 Con Paso 1 Hacer
a[i]<-azar(100)
Fin Para
Escribir sin saltar "Elementos del arreglo A"
Para i<-0 Hasta n-1 Con Paso 1 Hacer
escribir sin saltar " ",a[i]
Fin Para
escribir " "
Para i<-0 Hasta n-1 Con Paso 1 Hacer
b[i]<-azar(100)
Fin Para
Escribir sin saltar "Elementos del arreglo B"
Para i<-0 Hasta n-1 Con Paso 1 Hacer
escribir sin saltar " ",b[i]
Fin Para
escribir " "
f <- 0
q <- 0
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Si a[i] mod 2 = 0 Entonces
f <- f + 1
Fin Si
Fin Para
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Si a[i] mod 2 = 1 Entonces
q <- q + 1
Fin Si
Fin Para
Escribir "Los numeros pares del Arreglo A son: ", f
Escribir "Los numeros impares del Arreglo A son: ", q
e <- 0
k <- 0
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Si b[i] mod 2 = 0 Entonces
e <- e + 1
Fin Si
Fin Para
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Si b[i] mod 2 = 1 Entonces
k <- k + 1
Fin Si
Fin Para
Escribir "Los numeros pares del Arreglo b son: ", e
Escribir "Los numeros impares del Arreglo b son: ", k
x <- f + e
z <- q + k
Escribir "El total de los numeros pares del Arreglo a y b son: ", x
Escribir "El total de los numeros impares del Arreglo a y b son: ", z
FinAlgoritmo
//Hurtado Dominguez Eduardo
//Gomez Paredes Vicente Francisco
[pic 3]
[pic 4]
Ejercicio 4 unidimensional
Algoritmo sin_titulo
...