LordKusa

matrices - 1

Aug 29th, 2019
117
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program tp;
  2.  
  3. uses
  4.     crt;
  5.    
  6. type
  7.     matriz = array [1..3, 1..4] of integer;
  8.    
  9. var
  10.     matriz1:matriz;
  11.    
  12. procedure cargarMatriz(var m:matriz);
  13.     var
  14.         i, j:integer;
  15.    
  16.     begin
  17.    
  18.         randomize;
  19.    
  20.         for j := 1 to 3 do
  21.        
  22.             for i := 1 to 4 do
  23.            
  24.                 m[i, j]:=random(15);
  25.    
  26.     end;
  27.    
  28. procedure mostrarMatriz(m:matriz);
  29.     var
  30.         i, j:integer;
  31.    
  32.     begin
  33.    
  34.         randomize;
  35.    
  36.         for j := 1 to 3 do
  37.        
  38.             for i := 1 to 4 do
  39.            
  40.                 begin
  41.            
  42.                     if(i<4)then
  43.            
  44.                         write(m[i, j], ', ')
  45.                        
  46.                     else
  47.                    
  48.                         writeln(m[i, j]);
  49.    
  50.                 end;
  51.    
  52.     end;
  53.    
  54. function sumatoria(m:matriz):integer;
  55.     var
  56.         suma, i, j:integer;
  57.    
  58.     begin
  59.    
  60.         suma := 0;
  61.    
  62.         for j := 1 to 3 do
  63.        
  64.             for i := 1 to 4 do
  65.            
  66.                 begin
  67.                
  68.                     suma := suma + m[i, j];
  69.                
  70.                 end;
  71.                
  72.         sumatoria := suma;
  73.    
  74.     end;
  75.  
  76. begin
  77.  
  78.     cargarMatriz(matriz1);
  79.    
  80.     mostrarMatriz(matriz1);
  81.    
  82.     writeln('');
  83.    
  84.     writeln(sumatoria(matriz1));
  85.  
  86. end.
RAW Paste Data