dunha_gtz

valeu simons era isso mesmo =D Coloquei Begin e end; em todas as operaçoes e deu td certo. valeu o/

Fala galera to com uma dificuldade cruel pra fazer esse programa no pascal ate agr só fiz o que segue em anexo, e ainda assim ta errado a media e a posiçao do maior e menor. Se vocês puderem me ajudar eu agradeceria muito, o enunciado do exxercicio é esse:> Fazer um programa 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. 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 dobeginif maior<mat[i,j] thenmaior:=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 dobeginif menor>mat[i,j] thenmenor:=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.