INICIO

1



início
car Arq[];
int n;
leia n;
para Arq de Arq[0] até Arq[n-1] passo 1 faça
leia Aqr[];
Escreva (Arq[]);
fim_para;
saia;
fim


inicio
car Arq[];
int n;
Enquanto(n<>eof) faça
leia([n]);
escreva (A[n]);
n=n++;
fim_enquanto;
fim



2



início
int ano;
caracter título, autor, isbn, resp;
resp='S'
repita
leia (Título), (autor), (isbn),(ano);
escreva (Título), (autor), (isbn), (ano);
escreva ("deseja cadastrar mais?" S/N);
até ;
saia;
fim


início
int quantlivro
caracter título, autor, isbn, ano;
leia quantlivro;
quantlivro=0;
repita
leia (Título), (autor), (isbn),(ano);
escreva (Título), (autor), (isbn), (ano);
quantlivro=0++;
até ;
saia;
fim