ANP - 26/07/19
Exercício 1
Algoritmo "vetor"
Var
Valor: vetor [0..9] de inteiro
i, y, z: inteiro
Inicio
para i de 0 ate 9 faca
leia (valor[i])
fimpara
para i de 0 ate 8 faca
para y de (i+1) ate 9 faca
se valor [i] > valor[y] entao
z:= valor[i]
valor [i]:= valor[y]
valor [y]:= z
fimse
fimpara
fimpara
para i de ate 9 faca
Escreval(valor[i])
fimpara
fimalgoritmo
Fimalgoritmo
Exercício 2
Algoritmo "matriz"
Var
mat, mat2: vetor[0..4,0..4] de inteiro
x, y: inteiro
Inicio
para x de 0 ate 4 faca
para y de 0 ate 4 faca
leia(mat[x,y])
fimpara
fimpara
para x de 0 ate 4 faca
para y de 0 ate 4 faca
mat2[x,y]:= mat[x,y] * mat[x,y] * mat[x,y]
fimpara
fimpara
para x de 0 ate 4 faca
para y de 0 ate 4 faca
Escreva(mat[x,y])
fimpara
escreval ()
fimpara
escreval ()
para x de 0 ate 4 faca
para y de 0 ate 4 faca
Escreva(mat2[x,y])
fimpara
escreval ()
fimpara
escreval ()
escreval (mat2[3,3])
fimalgoritmo
Fimalgoritmo