Llenar un vector (arreglo unidimensional) con 10 valores enteros y determinar cuántos de ellos son positivos, cuantos negativos

1. Llenar un vector (arreglo unidimensional) con 10 valores enteros y determinar cuántos de ellos son positivos, cuantos negativos.

Algoritmo para determinar número positivos y negativos

Proceso num_pos

Dimension a[200]

cont=0

neg=0

Escribir 'Digite el tamaño del arreglo:'

Leer c;

Para i=1 Hasta c Con Paso 1 Hacer

Escribir 'Digite Numero posición: ',i

Leer a[i]

FinPara

Para i=1 Hasta c Con Paso 1 Hacer

Si a[i]>0 Entonces

cont=cont + 1;

Fin Si

FinPara

neg=c-cont;

Escribir 'Existen ',cont,' números positivos y ',neg,' negativos.'

FinProceso

Diagrama de flujo:

2. Dada una matriz de 5 filas y 5 columnas imprimir la diagonal de la matriz.

Proceso diagonal_matrices

Dimension vect(50,50);

Escribir 'ingrese el numero filas';

Leer m;

Escribir 'ingrese el numero columnas';

Leer n;

Escribir 'Digite los valores:';

Para i<-1 Hasta m Con Paso 1 Hacer

Escribir 'Fila ',i

Para j<-1 Hasta n Con Paso 1 Hacer

Leer vect(i,j);

FinPara

FinPara

Escribir 'La diagonal pincipal de la matriz es: ';

Para i<-1 Hasta m Con Paso 1 Hacer

Para j<-1 Hasta n Con Paso 1 Hacer

Si (i=j)Entonces

Escribir vect(i,j);

FinSi

FinPara

FinPara

Escribir 'La diagonal secundaria de la matriz es: ';

Para i<-1 Hasta m Con Paso 1 Hacer

Para j<-n Hasta n Con Paso 1 Hacer

Escribir vect(i,j);

n<-n-1;

FinPara

FinPara

FinProceso

...