Jump to content


vida loca

Member Since 29/01/2008
Offline Last Active 30/04/2008, 13:59
-----

Topics I've Started

Vetor

01/02/2008, 17:47

pessoalme ajudem aqui

Faça um algoritmo para ler e montar um vetor de números inteiros com 50 posições. Depois de montado, o vetor
ler 10 números inteiros quaisquer e para cada número lido imprimir se este existe ou não no vetor
eu fiz ate uma certa parte mas ñ esta escrevendo os numeros todos iguais as do vetor

[codebox]
var
n_numeros : vetor[1..50] de real
num, cont : inteiro
inicio
cont := 1
enquanto cont<=50 faca
leia (n_numeros [cont])
cont:= cont + 1
fimenquanto
cont:= 1
enquanto cont <= 10 faca
leia (num)
se (num) = (n_numeros [cont]) entao
escreva (num, n_numeros [cont])
fimse
cont := cont + 1
fimenquanto
fimalgoritmo
[/codebox]

IPB Skin By Virteq