Matrizes

1) Dada uma matriz M (5 x 7), preenchê-la por leitura e mostrar:
a) o maior elemento de cada linha da matriz;
b) o maior elemento de cada coluna da matriz;
c) a média dos elementos de cada coluna;
d) o produto de todos os elementos diferentes de zero;
e) quantos elementos são negativos;
f) posição ocupada (linha-coluna) por um elemento cujo valor será lido pelo programa.

{ exercicio 1 da lista de matrizes. Cada item do exercicio esta' resolvido separadamente para maior clareza, mas o mesmo loop que percorre a matriz poderia ter sido usado para mais de um dos itens. }

var i, j, maior, soma,N,produto,neg,achei,MAXLIN,MAXCOL:integer; M: array [1..5, 1..7] of integer;

Begin neg:=0; produto:=1;
MAXLIN:=5;
MAXCOL:=7;

{ Leitura na matriz M } write('digite os dados da matriz'); for i:=1 to MAXLIN do begin writeln('Linha ', i); for j:=1 to MAXCOL do readln(M[i,j]); end;

{ o maior elemento de cada linha da matriz} for i:=1 to MAXLIN do begin maior:=0; for j:=1 to MAXCOL do if M[i,j]>maior then maior:=M[i,j]; writeln('O maior elemento da linha ', i, ' eh ' ,maior); end; { o maior elemento de cada coluna da matriz} for j:=1 to MAXCOL do begin maior:=0; for i:=1 to MAXLIN do if M[i,j]>maior then maior:=M[i,j]; writeln('O maior elemento da coluna ',j,' eh ',maior); end;

{ a média dos elementos de cada coluna} for j:=1 to MAXCOL do begin soma:=0; for i:=1 to MAXLIN do soma:=soma+M[i,j]; writeln('A media da coluna ',j,' eh ',soma/MAXLIN); end; { o produto de todos os elementos diferentes de zero} for i:=1 to MAXLIN do for j:=1 to MAXCOL do if M[i,j]0 then produto:=produto*M[i,j]; writeln('O produto dos elementos nao nulos eh ',produto); { quantos