Exercício - Matriz 5X8

{Crie um programa que preencha matriz 5X8 do tipo real. Calcule e mostre:

a) a soma dos elementos da 3a. coluna.
b) o produto dos elementos  da 1a. e 2a. coluna.
                                                          }

program matriz_5X8;

uses crt;

var
   matriz                 : array [1..5,1..8] of real;
   soma,produto1,produto2 : real;
   i,j                    : integer;

begin
     clrscr;
     soma:=0;
     produto1:=1;
     produto2:=1;

     {****** CADASTRAMENTO DO NUMEROS ******}

     writeln ('Montar uma matriz de 5X8 : ');
     writeln;
     for i:= 1 to 5 do
       begin
         writeln;
         writeln (i,'a. Linha: ');
         writeln;
         for j:= 1 to 8 do
           begin
             write (' ',j,'o. '); readln (matriz[i,j]);
             if i=1 then
                produto1:=produto1*matriz[i,j];
             if i=2 then
                produto2:=produto2*matriz[i,j];
             if j=3 then
               soma:=soma+matriz[i,j];
           end;
         writeln;
       end;



     {****** LISTAGEM DO NUMEROS CADASTRADOS ******}

     writeln ('Matriz de 5X8 : ');
     writeln;
     for i:= 1 to 5 do
       begin
         writeln (i,'a. Linha: ');
         writeln;
         for j:= 1 to 8 do
           write (' ',j,'o. ',matriz[i,j]:2:1);
         writeln;
       end;
     writeln;
     writeln ('Produto dos elementos da 1a. linha: ',produto1:15:1);
     writeln ('Produto dos elementos da 2a. linha: ',produto2:15:1);
     writeln ('A soma dos elementos da 3a. coluna: ',soma:15:1);
     writeln;
     writeln ('Tecle <ENTER> para sair ...');
     readln;

end.