Matrizes: Meses do ano
algoritmo ()
{
// exibe os meses do ano
inteiro i;
matriz cadeia mes[12];
i := 1;
mes[1] := "janeiro";
mes[2] := "fevereiro";
mes[3] := "marco";
mes[4] := "abril";
mes[5] := "maio";
mes[6] := "junho";
mes[7] := "julho";
mes[8] := "agosto";
mes[9] := "setembro";
mes[10] := "outubro";
mes[11] := "novembro";
mes[12] := "dezembro";
repita
{
escreva ( mes[i] );
i := i + 1;
} ate (i>12);
}