Resposta da questão 2 Fila B - LTP1 2ºTRIM 2012

{ Crie um algoritmo qu preencha uma matriz de 3x4 do tipo real. Calcule e mostre:
    - a soma dos elementos da 1a. e da 2a. linha.
    - o produto dos elementos da 4a. coluna.
   
    - listar os elementos da 1a. e da 2a. linha
    - listar os elementos da 4a. coluna                                           }

program matriz_3X4;

uses crt;

var                          
   x                      : array [1..3,1..4] of integer;
   i,j,soma,produto       : integer;

begin
   clrscr;
   writeln ('Matriz 3X4');

   {**** CADASTRAMENTO DOS ELEMENTOS ****}

   for i:= 1 to 3 do
     begin
       writeln ('Digite os elementos da ',i,'a. linha: ');
       for j:= 1 to 4 do
          begin
             write (j,'o. elemento de um total de 4 elementos: '); readln (x[i,j]);
          end;
end;
   writeln;
   writeln;

   {**** listagem dos elementos da matriz 3X4 ****}

   writeln ('Listagem dos elementos cadatrados: ');
   writeln;
   for i:= 1 to 3 do
     begin
       writeln ('Elementos da ',i,'a. linha: ');
       for j:= 1 to 4 do
         writeln (j,'o. elemento de um total de 4 elementos: ',x[i,j]);
     end;

   {**** a soma dos elementos da 1a. e 2a. linhas e o produto dos elementos da 4a. coluna  ***}

   soma :=0;
   produto:=1;
   for i:= 1 to 3 do
      for j:= 1 to 4 do
         begin
           {**** soma dos elementos da 1a. e 2a. linha ****}
           if (i>=1) and (i<=2) then
             soma:=soma+x[i,j];
           {**** produto dos elementos da 4a. coluna ****}
             if j= 4 then
               produto:=produto*x[i,j];
         end;
   writeln;

   {**** Exibir o resultado da soma dos elementos da 1a. e da 2a. linha ****}

   writeln ('Soma dos elementos da 1a. e da 2a. linhas: ');
   writeln ('Soma = ',soma);
   writeln ('Produto dos elementos da 4a. coluna: ',produto);

   {*** Listar os elementos cadastrados da 1a. e da 2a. linha ****}
 

   {**** listar os elementos da 1a. e 2a. linha ****}
   writeln ('Elementos da 1a. e da 2a. linha: ');
   writeln ('Elementos: ');
   for i:= 1 to 3 do
      for j:= 1 to 4 do
         if (i>=1) and (i<=2) then
             write (' ',x[i,j],' ');
   writeln;

   {**** listar os elementos da 4a. coluna ****}
   writeln ('Elementos da 1a. e da 2a. linha: ');
   writeln ('Elementos: ');
   for i:= 1 to 3 do
      for j:= 1 to 4 do
         if j= 4 then
             write (' ',x[i,j],' ');
   writeln;
 
   writeln;
   writeln ('Tecle <ENTER> para sair do programa ');
   readln;

end.