1) Crear un vector n posiciones, llenarlo e imprimir su contenido y promedio de datos

almacenados

Algoritmo detarea

Definir x,vector,suma Como Entero;

Definir promedio,total Como Real;

Dimension vector[50];

Para a = 1 Hasta 30 Con Paso 1 Hacer

vector[x] = azar(20) + 1;

FinPara

suma = 0;

Para x= 1 Hasta 30 Con Paso 1 Hacer

suma = suma + vector[x];

FinPara

promedio = suma / 50;

Para x = 1 hasta 30 Con Paso 1 Hacer

si vector[x] > promedio Entonces

Escribir vector[x];

FinSi

FinPara

Escribir "el promedio es: ",promedio;

FinAlgoritmo

2) Llenar un vector con los números del 11 al 30 e imprimir su contenido y a su vez indicar si el

Número es par o impar.

definir e Como Entero;

Escribir "Ingrese un numero";

Leer e;

Si e >= 11 Entonces

escribir " ";

SiNo

escribir "el numero digitado debe ser mayor a 11";

FinSi

Si e <= 30 Entonces

escribir " ";

SiNo

Escribir "El numero digitado debe ser menor a 30";

FinSi

si e%2=0 Entonces

escribir e, " Es un numero par";

sino

escribir e, " No es un numero par ";

FinSi

FinProceso

3) Crear una matriz de n filas * m columnas (cargar n y m por teclado) Imprimir los valores de la

Diagonal principal y cuando imprima agregar * al valor.

Algoritmo detarea

Definir f,c,matriz,vector Como Entero;

Para f = 1 Hasta 5 Con Paso 1 Hacer

Para c = 1 hasta 5 Con Paso 1 Hacer

matriz(f,c) = azar(9) + 1;

FinPara

FinPara

Para f = 1 Hasta 5 Con Paso 1 Hacer

Para c = 1 Hasta 5 Con Paso 1 Hacer

Escribir matriz(f,c)," " Sin Saltar;

si f == c Entonces

vector(f) = matriz(f,c);

FinSi

FinPara

Escribir " ";

FinPara

Para f = 1 Hasta 5 Con Paso 1 Hacer

Escribir vector(f);

FinPara

FinAlgoritmo
5) Elaborar un algoritmo que permita leer 25 números en un arreglo e imprima el arreglo, debe

Indicar la cantidad de números que son cero, la cantidad de números que están abajo de cero

Y la cantidad de números arriba de cero. Nota: debe indicar el rango de números que debe

Digitar el usuario.

Algoritmo detarea

Definir A, suma0, sumaneg, sumapo Como Real;

Definir i,k Como Entero;

Dimension A[25];

suma0<-0;

sumaneg<-0;

sumapo<-0;

Escribir "digite 25 numeros reales";

Para i<-0 Hasta 24 Con Paso 1 Hacer

Escribir "Dato ", i, ": "; sinsaltar

Leer A[i];

FinPara

Escribir "Los datos digitados son: ";

Para i<-0 Hasta 24 Con Paso 1 Hacer

Escribir A[i], " , " ;Sinsaltar

Si A[i]=0 Entonces

suma0<- suma0 + 1;

SiNo

Si A[i]<0 Entonces

sumaneg<- sumane + 1;

SiNo
 sumapo<- sumapo + 1;

FinSi

FinSi

FinPara

Escribir " ";

Escribir "La cantidad de ceros digitados son: ", suma0;

Escribir "La cantidad de negativos digitados son: ", sumaneg;

Escribir "La cantidad de positivos digitados son: ", sumapo;

FinProceso

6) Elaborar un algoritmo que permita leer 50 números enteros en un arreglo e imprimirlos de

Mayor a menor.

Algoritmo detarea

Definir arreglo, x Como Entero;

Dimension arreglo[50];

Para x<-0 Hasta 49 Con Paso 1 Hacer

arreglo[x]<-x+1;

FinPara

Para x<-49 Hasta 0 Con Paso -1 Hacer

Escribir arreglo[x];

FinPara

FinProceso
 8) Elaborar un algoritmo que genere una matriz de 10 x 10, en la cual asigne ceros a todos los

Elementos desde la diagonal principal hacia arriba y a los demás les coloque unos. Imprimir la

Matriz resultado.

Algoritmo detarea

Definir M, i, j Como Entero;

Dimension M[10,10];

Para i<-0 Hasta 9 Con Paso 1 Hacer

Para j<-0 Hasta 9 Con Paso 1 Hacer

Si j >= i Entonces

M[i,j]<-0;

SiNo

M[i,j]<-1;

FinSi

FinPara

FinPara

Escribir "La matriz digitada es: ";

Para i<-0 Hasta 9 Con Paso 1 Hacer

Para j<-0 Hasta 9 Con Paso 1 Hacer

Escribir M[i,j], " "; sinsaltar

Escribir " ";

FinPara

FinProceso

9) Elaborar un algoritmo que permita leer números en una matriz de 6 x 7 y leer números en un

Vector de 6 elementos. Calcular el producto de matriz por vector. (El producto de la matriz por

el vector, el resultado es un vector. Aplicar el proceso de multiplicación de matrices.

Algoritmo detarea

Definir a,n,m,f,c,matriz,vector Como Entero;

Definir resultante Como Entero;;

Dimension matriz[10,10],vector[10],resultante[10];

Para f = 1 Hasta 6 Con Paso 1 Hacer

Para c = 1 hasta 7 Con Paso 1 Hacer

matriz(f,c) = azar(9) + 1;

FinPara

FinPara

a = 0;

Para f = 1 Hasta 6 Con Paso 1 Hacer

Para c = 1 Hasta 7 Con Paso 1 Hacer

Escribir matriz(f,c)," " Sin Saltar;

vector(f) = matriz(f,c);

resultante(f) = matriz(f,c) * vector(f);

FinPara

Escribir " ";

FinPara

Para f = 1 Hasta 6 Con Paso 1 Hacer

FinPara

a= 0;

Escribir " ";

para f = 1 Hasta 6 con paso 1 Hacer

Escribir "resultante: ",resultante(f);

FinPara

FinAlgoritmo

11) Crear un programa que lea 10 números utilizando un arreglo, debe controlar que no se

Permite números repetidos. Luego imprimir el arreglo.

Algoritmo detarea

Definir arreglo, x Como Entero;

Dimension arreglo[10];

Para x<-0 Hasta 9 Con Paso 1 Hacer

arreglo[x]<-x+1;

FinPara

Para x<-9 Hasta 0 Con Paso -1 Hacer

Escribir arreglo[x];

FinPara

FinProceso

13) Elaborar un Programa que reciba un número entero y retorne el número con sus dígitos
Invertidos. Ejemplo: dado el número 763781 imprimir el 187367.

Algoritmo detarea

Definir n,b Como Entero;

Definir a,x Como Caracter;

a = ConvertirATexto(763781);

b = Longitud(a);

x = "";

Mientras b > -2 Hacer

x = x + Subcadena(a,b,b);

b = b - 1;

FinMientras

Escribir "numero ",763781," invertido es: ",ConvertirANumero(x);

FinAlgoritmo

12)Se Tiene un arreglo unidimensional C de N elementos, calcular:

• El número de valores impares

• El número de valores pares

• La cantidad de ceros

• Número de datos repetidos en el arreglo

Definir a,pares,impares,ceros,repetidos,vector Como Entero;

Dimension vector[10];

Para a = 1 Hasta 6 Con Paso 1 Hacer

Escribir "ingresar numero";

Leer vector(a);

FinPara

pares = 0;
 impares= 0;

ceros = 0;

repetidos = 0;

Para a = 1 Hasta 6 Con Paso 1 Hacer

si vector(a) mod 2 == 0 Entonces

pares = pares + 1;

repetidos = repetidos + 2;

SiNo

impares = impares + 1;

FinSi

FinPara

Escribir "pares son: ",pares;

Escribir "impares son: ",impares;

Escribir "repetidos son: ",repetidos;

FinAlgoritmo