Soma de Pares, Soma de Impares, Maior, Menor, Soma e Media

algoritmo "Matriz"
// Função :
// Autor :
// Data : 10/4/2012
// Seção de Declarações
var
continua: caracter
dimencao: inteiro
m: vetor[1..4,1..4] de inteiro
n : vetor[1..4,1..4] de inteiro
i : inteiro
j : inteiro
sp,si,tp,maior,menor,soma: inteiro
nn,c,x:inteiro
inicio

escreval ("Programa para gerar uma Matriz com a dimenção informada pelo usuario")
escreval ("Digite a dimencao para a matriz")
leia(dimencao)
//dimencao<-dimencao*dimencao
soma<-0
maior<-0
menor<-99
j<-1
limpatela
enquanto (j<=dimencao) faca
i<-1
enquanto (i<=dimencao) faca
n[i,j]<-randi(99);
soma<-soma+n[i,j]
escreva(n[i,j])
se (n[i,j]>maior) entao
maior<-n[i,j]
fimse
se (menor>n[i,j]) entao
menor<-n[i,j]
fimse
se n[i,j] mod 2 = 0 entao
sp<-sp+1
senao
si<-si+1
fimse
se n[i,j] > 0 entao
nn<- 1
para c de 2 ate (n[i,j]-1) faca
se n[i,j] mod c = 0 entao
x<- x+1
fimse
fimpara
se x <> 0 entao
// escreval(n[i,j], " nao faz parte dos numeros primos")
senao
se x= 0 entao
tp<-tp+1
fimse
fimse
fimse
i<-i+1
fimenquanto
escreval(".")
j<-j+1
fimenquanto
escreval("ToTal de Numeros Pares ->",sp)
escreval("ToTal de Numeros Impares ->",si)
escreval("ToTal de Numeros Primos ->",tp)
escreval("Maior Numero ->",maior)
escreval("Menor Numero ->",menor)
escreval("Soma ->",soma)
escreval("Media->",soma/(i*j))


// Seção de Comandos
fimalgoritmo