Algoritmos 02062011

algoritmo "vetor_10"
// Função :
// Autor :
// Data : 02/06/2011
// Seção de Declarações
var
i:inteiro
nome: vetor[1..10] de caractere
inicio
// Seção de Comandos
para i de 1 ate 10 faca
Escreval ("digite nome")
leia (nome[i])
fimpara
para i de 1 ate 10 faca
Escreval (nome[i])
fimpara
fimalgoritmo


sem vetor

algoritmo "para_10"
// Função :
// Autor :
// Data : 02/06/2011
// Seção de Declarações
var
n:inteiro
nome:caractere
inicio
// Seção de Comandos
para n de 1 ate 10 faca
Escreval ("digite nome")
Leia(nome)
Escreval(nome)
fimpara
fimalgoritmo