Algoritmo "Cadastro"
Var
menu,a2,a3,a4,x,y:inteiro
a5, i,cad, prod,l : caractere
moradores: vetor[1..10] de caracter
cont: vetor[1..10, 1..10] de caractere inteiro
sair: inteiro
Inicio
x:=1
cad:="s"
repita
Escreval ("Menu principal")
Escreval ("1. Cadastrar Moradores")
Escreval ("2. Cadastrar contas")
Escreval ("3. Mostrar Moradores Menores de idade")
Escreval ("4. Exportar para TXT")
Escreval ("5. Sair ")
menu:=0
leia (menu)
//incluindo moradores
escolha menu
caso 1
//cadastrar moradores
enquanto cad <> "n" faca
escreval("digite o nome do morador e tecle enter")
leia (moradores[x])
escreval("cadastrar outro morador S N")
leia(cad)
x:=x+1
se x > 10 então
escreval("Só podes Cadastrar 10 Moradores")
cad:="n"
fimse
fimenquanto
caso 2
//cadastrar contas
enquanto prod <> "n" faca
y:= y+1
escreval ("Digite o nome da conta que deseja cadastrar")
leia (cont[x])
escreval ("Digite o valor da conta")
leia (cont[y])
escreval("Deseja cadastrar mais uma conta? S N")
leia (prod)
x:= x+1
se x > 10 então
escreval("Só podes cadastrar 10 contas")
prod:="n"
fimse
fimenquanto
caso 3
//mostrar moradores menoresde idade
limpatela
para y de 1 ate 10 faca
escreval(y," morador ",moradores[y])
fimpara
caso 4
//salvar resultados em txt
fimescolha
ate menu=5
// para a1=1 faca
// Escreva ("Insira o nome do morador:")
// leia (moradores)
// fimpara
//comando para sair
//ate a1=4
Fimalgoritmo
A ajuda de vocês realmente ajudou, agora só está faltando duas coisas, a primeira, somar todos os valores das contas e depois salvar em txt, até agora nao consegui, ainda estou tentando.