Matriz

[MlcBlz 0]

Preciso de ajuda: matriz 4x4, fazer um programa q leia os valores e imprima os seguintes relatórios: qual a soma dos valores de cada coluna da matriz, listar os valores que são menores que a média dos valores de toda matriz e qual a soma dos elementos da diagonal principal e secundária.

[Chrnos 30]

Amigo, tem inúmeros posts com problemas semelhantes ao seu neste fórum... dê uma pesquisada.

 

Em todo caso, poste ai o que você já fez que vamos tentar lhe ajudar a corrigir as falhas do seu algoritmo...

 

[]'s

[MlcBlz 0]

Tenho um exemplo mas ele tem problemas ainda, falta tb dentro dessa estrutura achar a soma dos valores de cada coluna da matriz, listar os valores que sao menores que a media dos valores de toda matriz. beleza

 

PROGRAM DIAGONAL;
VAR 
	MATRIZ: ARRAY [1..4, 1..4] OF INTEGER;
	L, C: 	INTEGER;
BEGIN
	FOR L := 1 TO 4 DO
		BEGIN 
			WRITELN('INFORME OS VALORES DA LINHA', L:2);
  	        READ(MATRIZ[L,C]);
			FOR C := 1 TO 4 DO
			READLN
		END;
	WRITELN('MATRIZ LIDA'); 
	FOR L := 1 TO 4 DO
		BEGIN
			FOR C := 1 TO 4 DO 
				WRITE(MATRIZ[L, C]: 5); 
			WRITELN 
		END
	WRITELN('ELEMENTOS DA DIAGONAL PRINCIPAL'); 
	FOR L := 1 TO 4 DO 	
		WRITE(MATRIZ[L, L]: 5);
END.

[quitZAUMMM 18]

Ueh, pra fazer a soma é soh você manter o indice da coluna constante na soma, oq vai mudar é soh o indice da linha.

 

[]s