quetão 2 lista 5

algoritmo "semnome"
// Função :
// Autor :
// Data : 25/4/2011
// Seção de Declarações
var
y : vetor[1..10] de real
i : inteiro
u:vetor[1..10]de real

inicio
// Seção de Comandos
para i de 1 ate 10 faca
leia (y[i])
fimpara
limpatela

para i de 1 ate 10 faca
 se (y[i] < 0) entao
u[i] <- 1
senao
u[i] <- y[i]
fimse
fimpara

para i de 1 ate 10 faca
    escreva ( u[i])
fimalgoritmo