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.
