Question

Fazer um programa em pascal onde o usuário deve preencher uma matriz 4 x 3 com números inteiros.

Depois de preenchida, calcular e mostrar a média dos números pares armazenados e a posição do

maior e do menor número digitado.

Answer 1

BEGIN
for i := 1 to 4 do
  for j := 1 to 3 do
    begin
    write('Digite os números: ');
    readln(mat[i,j]);
    end;maior:=mat[1,1];
pos_mai:=1;
pos_maj:=1;
for i:=2 to 4 do
  for j:=2 to 3 do
    begin
    if maior<mat[i,j] then
      maior:=mat[i,j];
    pos_mai:=i;
    pos_maj:=j;
    end;menor:=mat[1,1];
pos_mei:=1;
pos_mej:=1;
for i:=2 to 4 do
  for j:=2 to 3 do
    begin
    if menor>mat[i,j] then
      menor:=mat[i,j];
    pos_mei:=i;
    pos_mej:=j;
    end; soma:=0;
k:=0;
for i:=1 to 4 do
  for j:=1 to 3 do
    begin
    if mat[i,j] MOD 2=0 then
      soma:=soma+mat[i,j];
    k:=k+1;
    end;media:=soma/k;
writeln('O maior número e ‚: ' ,maior,' e sua posiçao e : ' ,pos_mai  ,pos_maj);
writeln('O menor numero e ‚: ' ,menor,' e sua posiçao e : ' ,pos_mei  ,pos_mej);
writeln('A media dos numeros pares e : ',media*2);END.