[Resolvido] Multiplicar maior elemento da linha

[DSR 0]

Pessoal, sou iniciante em pascal e estou com este problema, não sei como fazer para o maior elemento da matriz multiplicar a linha aonde se encontra, se alguém puder me ajudar agradeço?.

Faça um programa em Pascal que carregue uma matriz 6 x 4 com números inteiros. Recalcule

a matriz digitada, sabendo que cada linha será multiplicada pelo maior elemento da linha em

questão. Mostre a matriz resultante.

 

Program  maior_elemento;
uses wincrt;


var
   m:array[1..6,1..4] of integer;
   lin, col,i: integer;
   ML:array [1..6] of integer;
   

Begin

for lin := 1 to 6 do;
for col := 1 to 4 do;
Escreva ('Digite os valores da  Matriz:');
leia (m[lin,col]);
fim;

for i:=1 to 6 do m[I,J]:=M[I] * lin;

   FOR lin := 1 to 6 do;
         for col :=  1 to 6 do;
         writeln (m[lin, col]);
         end;
   end;
writeln ("os valores multiplicados pelo maior elemento das  linhas são: ");
   for i := 1 to 6 do;
         writeln (sl[i]);
   end;
End.

[quitZAUMMM 18]

a lógica é algo assim:

* Você usará 2 variaveis uma para guardar o maior valor, outra para guardar a linha.

* Depois de ler a matriz toda, você terá a linha do maior valor, ai é soh multiplicar.

Bom isso foi a teoria a prática é isso:

Integer iMaiorElemento iLinhaMaiorElemento
iMaiorElemento <- 0; //Digamos que não tera valores negativos
iLinhaMaiorElemento <- 0;
Para i de 1 até 6 faça
    Para j de 1 até 4 faça
        Se Matriz[i][j] > iMaiorElemento Então
            iMaiorElemento      <- Matriz[i][j];
            iLinhaMaiorElemento <- i;
        Fim_Se
    Fim_Se
Fim_Se

Agora pense que ficou fácil ;D

 

[]s

[DSR 0]

a lógica é algo assim:

* Você usará 2 variaveis uma para guardar o maior valor, outra para guardar a linha.

* Depois de ler a matriz toda, você terá a linha do maior valor, ai é soh multiplicar.

Bom isso foi a teoria a prática é isso:

Integer iMaiorElemento iLinhaMaiorElemento
iMaiorElemento <- 0; //Digamos que não tera valores negativos
iLinhaMaiorElemento <- 0;
Para i de 1 até 6 faça
    Para j de 1 até 4 faça
        Se Matriz[i][j] > iMaiorElemento Então
            iMaiorElemento      <- Matriz[i][j];
            iLinhaMaiorElemento <- i;
        Fim_Se
    Fim_Se
Fim_Se

Agora pense que ficou fácil ;D

 

[]s

 

Cará muito obrigado pela ajuda,valeu mesmo, fique com Deus!

[quitZAUMMM 18]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif