Question

Alguien que me ayude a pasar un ejercicio en Pseing a Lpp por favor​

Algoritmo sin_titulo
d=Aleatorio(10,50)

dimension vector[d]

dimension temp[d]

para x=1 hasta d Hacer

vector[x]=Aleatorio(1,500)

Escribir vector[x],", " Sin Saltar

FinPara

Escribir ''

Escribir ''

Escribir "El vector tiene ",d," numeros"

seRepite=0

temIndex=1

para x=1 hasta d Hacer

existe=Falso

para j=1 hasta d Hacer

si vector[x]==temp[j] Entonces

existe=Verdadero

FinSi

FinPara

si existe == Falso Entonces

temp[temIndex]=vector[x]

temIndex=temIndex+1

para z=1 hasta d Hacer

si vector[x]==vector[z] Entonces

seRepite=seRepite+1

FinSi

FinPara

seRepite=seRepite-1

FinSi

FinPara

si seRepite > 0 Entonces

Escribir "El vector tiene ",seRepite," numeros repetidos"

SiNo

Escribir "El vector no tiene numeros repetidos"

FinSi
FinAlgoritmo

Answer 1

Respuesta:

tuve que aprender a usar LPP es muy diferente a Pseint en ciertas cosas pero qui tienes el ejercicio de anoche XD

entero d,x,j,z,seRepite,temIndex

booleano existe

arreglo[50] de entero vector

arreglo[50] de entero temp

Inicio

d<-50

llamar inicializar_Aleatorio()

para x<-1 hasta d haga

  vector[x]<-(Aleatorio()*500)+1

  Escriba vector[x],", "

Fin Para

llamar nueva_linea

llamar nueva_linea

Escriba  "El vector tiene ",d," numeros"

seRepite<-0

temIndex<-1

para x<-1 hasta d haga

  existe<-Falso

  para j<-1 hasta d haga

    si vector[x]=temp[j] Entonces

   existe<-Verdadero

    Fin Si

  Fin Para

  si existe = Falso Entonces

    temp[temIndex]<-vector[x]

  temIndex<-temIndex+1

  para z<-1 hasta d haga

      si vector[x]= vector[z] Entonces

       seRepite<-seRepite+1

      Fin Si

    Fin Para

    seRepite<-seRepite-1

  Fin Si

Fin Para

llamar nueva_linea

si seRepite > 0 Entonces

  Escriba "El vector tiene ",seRepite," numeros repetidos"

SiNo

  Escriba "El vector no tiene numeros repetidos"

Fin Si

Fin