alguém pode me ajudar corrigir erros? algoritmo "MATRIZ 4 X 5" // Função : Dado uma Matriz de 4 x 5: // Autor : GABRIELA BORGES // Data : 13/10/2015 // Seção de Declarações var M: VETOR [1..4,1..5] DE INTEIRO //--------------------------------------- C, L, AUX, MINVERTIDA: INTEIRO //--------------------------------------- SOMAL, SOMAC: VETOR [1..4]DE INTEIRO //--------------------------------------- VPAR, VIMPAR VETOR[1..50] DE INTEIRO VPARI, VIMPARI: INTEIRO inicio //1. Escreva um Algoritmo que alimente esta matriz com valores randômicos até 20; ESCREVAL( "|_________________________MATRIZES______________________|") ESCREVAL("") ESCREVAL (" MATRIZ 4 X 5:") ESCREVAL("") PARA L DE 1 ATE 4 FACA PARA C DE 1 ATE 5 FACA SE C=1 então ESCREVA ("|") FIMSE M[L,C]:= RANDI(50) ESCREVA (M[L,C]:3:0,"|") FIMPARA ESCREVAL("") FIMPARA //2. Escreva um procedimento (Código) que ordene esta Matriz em Ordem Crescente PARA L DE 1 ATE 4 FACA PARA L1 DE 1 ATE 3 FACA SE M[L1] > M[L1+1] então AUX := M[L1] M[L1] := M[ L1+1] M[L1+1] := AUX FIMSE FIMPARA FIMPARA ESCREVAL("ORDENANDO...") PARA L DE 1 ATE 4 FACA ESCREVAL("ORDENANDO LINHAS: [", L, "] = ", M[L]) FIMPARA PARA C DE 1 ATE 5 FACA PARA C1 DE 1 ATE 4 FACA SE M[C1] > M[C1+1] então AUX := M[C1] M[X] := M[ C1+1] M[C1+1] := AUX FIMSE FIMPARA FIMPARA ESCREVAL("ORDENANDO...") PARA C DE 1 ATE 5 FACA ESCREVAL("ORDENANDO COLUNAS: [", C, "] = ", M[C]) FIMPARA //3. Escreva um procedimento que some as Colunas , e some as Linhas desta Matriz PARA L DE 1 ATE 4 FACA PARA C DE 1 ATE 5 FACA SE C=1 então ESCREVA ("|") FIMSE SOMAL[L] := SOMAL[L] + M[L,C] SOMAC[C] := SOMAC[C] + M[L,C] ESCREVA (M[L,C]:3:0,"|") FIMPARA ESCREVAL (SOMAL[L]:3:0) ESCREVAL ("+___+___+___+___=___") FIMPARA PARA C DE 1 ATE 4 FACA SE C =1 então ESCREVA ("|") FIMSE ESCREVA (SOMAC[C]:3:0,"|") FIMPARA //4. Escreva um procedimento que A última posição será a primeira, a penúltima a segunda e assim sucessivamente. PARA L DE 1 ATE 4 FACA PARA C DE 1 ATE 5 FACA LEIA (MINVERTIDA) M [L,C]:= MINVERTIDA FIMPARA FIMPARA L:= 4 PARA L DE 4 ATE 1 PASSO -1 FACA PARA C DE 1 ATE 5 FACA FIMPARA ESCREVAL (M [L,C]) FIMPARA //5. Crie 2 Vetores um para Valores Pares e Outro para Valores Impares, e alimente ele com os valores da Matriz, //Valor par no Vetor Par, Valor Impar no Vetor Impar ESCREVAL (" EXEMPLO DE MATRIZ:") ESCREVAL("") VPARI:= 1 PARA L DE 1 ATE 5 FACA PARA C DE 1 ATE 10 FACA M[L,C]:=RANDI(20) SE ((M[L,C] MOD 2) =0 ) então VPAR[VPARI] := M[L,C] VPARI := VPARI+1 SENAO VIMPAR[VIMPARI] := M[L,C] VIMPARI:= VIMPARI+1 ESCREVA ("|") FIMSE FIMPARA ESCREVA( VPAR :3:0,"|") ESCREVA( VIMPAR :3:0,"|") FIMPARA
