ESTOY EMPEZANDO CON ESTE TEMA DE LOS ARREGLOS ASI QUE SI ME AYUDAN SE LOS AGRADESERE MUCHO.
Código:
//definir arreglos;
dimension Lista1[5];
dimension moda[5];
dimension moda2[5];
//numerico:i;
// Inicialización;
i<-0;
j<-0;
Para j<-1 hasta 5 Hacer
moda[j]<-0;
moda2[j]<-0;
FinPara
Para i<-1 hasta 5 Hacer
Lista1[i]<-0;
FinPara
//lectura de datos;
Para i<-1 hasta 5 Hacer
escribir " introduzca los numeros de la primera lista ";
leer Lista1[i];
FinPara
//proceso;
//numero que se repite en cada lista;
mayor<-moda2[j];
moda[1]<-Lista1[1] ;
para i<-1 hasta 5 Hacer
para j<-1 hasta 5 Hacer
si moda[j]=Lista1[i]
Entonces
moda2[j]<-moda2[j]+1;
FinSi
si mayor< moda[j]
Entonces
mayor<- moda[j]
finsi
finpara
finpara
escribir " se repite " , mayor;
FinProceso
dimension Lista1[5];
dimension moda[5];
dimension moda2[5];
//numerico:i;
// Inicialización;
i<-0;
j<-0;
Para j<-1 hasta 5 Hacer
moda[j]<-0;
moda2[j]<-0;
FinPara
Para i<-1 hasta 5 Hacer
Lista1[i]<-0;
FinPara
//lectura de datos;
Para i<-1 hasta 5 Hacer
escribir " introduzca los numeros de la primera lista ";
leer Lista1[i];
FinPara
//proceso;
//numero que se repite en cada lista;
mayor<-moda2[j];
moda[1]<-Lista1[1] ;
para i<-1 hasta 5 Hacer
para j<-1 hasta 5 Hacer
si moda[j]=Lista1[i]
Entonces
moda2[j]<-moda2[j]+1;
FinSi
si mayor< moda[j]
Entonces
mayor<- moda[j]
finsi
finpara
finpara
escribir " se repite " , mayor;
FinProceso










Autor


En línea
