vetores

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "vetores"
var
 i,j,k,n : inteiro
 v: vetor [1..50] de real
 vp: vetor [1..50] de real
 vn: vetor [1..50] de real
 aux: real
inicio
//seção de comandos
 escreval("Digite o número de elementos do vetor:")
 leia(n)
 para i de 1 ate n faca
 escreval("Digite um numero qualquer:")
 leia(v[i])
 fimpara
 limpatela
//+-------------------------------------------------------------------------------------------------------------------------------+
 k<-0
 j<-0
 para i de 1 ate n faca
 se (v[i]>=0) entao
 k<-k+1
 vp[k]<-v[i]
 senao
 j<-j+1
 vn[j]<-v[i]
 fimse
 fimpara
 //+-------------------------------------------------------------------------------------------------------------------------------+
 escreval("Positivos:")
 para i de 1 ate k faca
 escreval(vp[i])
 fimpara
 escreval("Negativos:")
 para i de 1 ate j faca
 escreval(vn[i])
 fimpara
fimalgoritmo