Algoritmo "Soma, média, quantidade e maior valor" em vetor

Escreva um algoritmo que leia uma matriz de ordem 3 x 3 de números inteiros e a escreva, a seguir calcule e escreva:

a) a soma dos elementos pares da matriz;

b) a média de todos os elementos da matriz;

c) a quantidade de elementos ímpares da matriz;

d) o maior valor da matriz;

Solução:

var
mat: vetor[1..3, 1..3] de inteiro
i,j, soma, impar, maior: inteiro
media: real

inicio

maior <- 0
Escreval ("Digite o valor")
para i de 1 ate 3 faca
para j de 1 ate 3 faca
leia (mat[i,j])
se mat[i,j] mod 2 = 0 entao
soma <- soma + (mat[i,j])
senao
impar <- impar + 1
fimse
media <- (media + (mat[i,j])) / 9
fimpara
fimpara
escreval

para i de 1 ate 3 faca
para j de 1 ate 3 faca
escreva (mat[i,j] : 3)
fimpara
escreval ("")
fimpara

escreval
para i de 1 ate 3 faca
para j de 1 ate 3 faca
se (mat[i,j]) > maior entao
maior <- mat[i,j]
fimse
fimpara
fimpara

escreval ("SOMA DOS NÚMEROS PARES = ",soma)
escreval ("MEDIA DOS NÚMEROS DA MATRIZ = ",media)
escreval ("QUANTIDADE DE NÚMEROS ÍMPARES DA MATRIZ = ",impar)
escreval ("MAIOR VALOR DIGITADO = ",maior)

fimalgoritmo


NO PASCAL FICARIA ASSIM

var
mat: array[1..3, 1..3] of integer;
i,j, soma, impar, maior: integer;
media: real;

begin

   maior := 0;
   writeln ('Digite o valor');
   for i := 1 to 3 do begin
      for j := 1 to 3 do begin
         readln (mat[i,j]);
         if mat[i,j] mod 2 = 0 then begin
            soma := soma + (mat[i,j]);
         end else begin
            impar := impar + 1;
         end;
         media := (media + (mat[i,j])) / 9;
      end;
   end;
   writeln;

   for i := 1 to 3 do begin
      for j := 1 to 3 do begin
         write (mat[i,j] : 3);
      end;
      writeln ('');
   end;

   writeln;
   for i := 1 to 3 do begin
      for j := 1 to 3 do begin
         if (mat[i,j]) > maior then begin
            maior := mat[i,j];
         end;
      end;
   end;

   writeln ('SOMA DOS NÚMEROS PARES = ',soma);
   writeln ('MEDIA DOS NÚMEROS DA MATRIZ = ',media);
   writeln ('QUANTIDADE DE NÚMEROS ÍMPARES DA MATRIZ = ',impar);
   writeln ('MAIOR VALOR DIGITADO = ',maior);

end.