VisualG Maior e menor valores entre números positivos

[Tsun]

Minha professora passou uns exercicios com um deles sendo o seguinte "Elaborar um programa que efetue a leitura de valores positivos inteiros até que um valor negativo seja informado. Ao final devem ser apresentados o maior e o menor valores informados pelo usuário." eu fiz esse codigo: 

 

Var

a,b,menor,maior:inteiro

Inicio

menor<-0

Escreval("Escreva um numero:")
leia(a)
Escreval ("Escreva Um Numero:")
leia(b)

  se a <=0 entao
   menor<=a
   
   se b <=0 entao
   menor<=b

  Escreval ("O menor Valor Digitado Foi:",menor)

  senao

  Escreval ("O maior Valor digitado Foi:",maior)

  fimse

 

Eu tinha conseguido fazer o exercicio , mas modifiquei alguma coisa e ele não ficou do mesmo jeito , queria saber no que eu errei.

[Ricardov]

Faltou testar para ver se o numero digitado é negativo. Pode usar um laço enquanto faça.

 

Para postar seu código use o botão <> do editor do fórum.

[Visitante]

@Tsun você vai ter que usar loop , uma váriavel menor, maior e negativo

faz o leia dentro do loop e faz os desvios condicionais

se numero for maior do que maior , maior recebe numero

se numero for menor do que menor , menor recebe numero

se numero for menor do que 0 escreva maior e menor

faz tudo isso dentro do loop

tem outras formas de fazer tb, colocando a condição de numero negativo para sair do loop e depois deles os escreva.