algoritmo "semnome"
// Função :
// Autor :
// Data : 28/08/2014
// Seção de Declarações
var
a: vetor [1..3,1..4] de real
b: vetor [1..3,1..4] de real
j,k: inteiro
inicio
para j de 1 ate 3 faca
para k de 1 ate 4 faca
leia (a[j,k])
b[j,k] <- a [j,k]
se a[j,k] < 0 entao
b[j,k] <- 0
fimse
fimpara
fimpara

para j de 1 ate 3 faca
para k de 1 ate 4 faca
escreval (a[j,k])
fimpara
fimpara

para j de 1 ate 3 faca
para k de 1 ate 4 faca
escreval (b[j,k])
fimpara
fimpara
fimalgoritmo