Program ushtrimi1;
const
  m=2;n=3;
type
 matrice= array[1..m,1..n]of integer;
 vektor = array [1..m]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure shume (x:matrice);
var
 b:vektor;
 sh:integer;
begin
 sh:=0;
 for i:=1 to m do
 begin
   for j:=1 to n do
   begin
   sh:= sh + x[i,j];
   b[i]:= sh;
   end;
   sh:=0;
  end;

  writeln (' ------------------------------- ');
  for i:= 1 to m do
  begin
    write('Shuma per rreshtin e ',i,' eshte ',b[i]);
    writeln ;
  end;
end;

  BEGIN
     krijo_mat();
     afisho(a);
     shume(a);
     readln ;
  END.
---------------------------------------------------

Program ushtrimi2;
const
  m=2;n=3;
type
 matrice= array[1..m,1..n]of integer;

 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure min_max(x:matrice);
var
 min, max:integer;
begin
 max:= x[1,1];
 for i:=1 to m do
  for j:=1 to n do
   if x[i,j]> max then
    max:= x[i,j];
  writeln ('Maximumi eshte ', max);

 min:= x[1,1];
 for i:=1 to m do
  for j:=1 to n do
   if x[i,j]< min then
    min:= x[i,j];
  writeln ('Minimumi eshte ', min);
 end;

  BEGIN
     krijo_mat();
     afisho(a);
     min_max(a);
     readln ;
  END.

----------------------------------------------------

Program ushtrimi3;
const
  m=2;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure adresimi (x:matrice);
begin
 for i:= 1 to m do
  for j:= 1 to n do
   writeln ('Elementi ', x[i,j],' ndodhet ne adresen {', i,', ', j, '}');
end;

  BEGIN
     krijo_mat();
     afisho(a);
     adresimi(a);
     readln ;
  END.
------------------------------------------------------
Program ushtrimi4;
const
  m=4;n=3;
type
 matrice= array[1..m,1..n]of integer;

 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], '    ');
       writeln ;
   end;
  end;

procedure min_shtyll(x:matrice);
var
 min:integer;
begin

 for j:=1 to n do
 begin
 min:= x[1,j];
  for i:=1 to m do
   if x[i,j]< min then
    min:= x[i,j];
     writeln ('Minimumi per shtyllen e ', j, ' eshte ', min);
 end;
end;

procedure max_shtyll(x:matrice);
var
 max:integer;
begin

 for j:=1 to n do
 begin
 max:= x[1,j];
  for i:=1 to m do
   if x[i,j]> max then
    max:= x[i,j];
     writeln ('Minimumi per shtyllen e ', j, ' eshte ', max);
 end;
end;

  BEGIN
     krijo_mat();
     afisho(a);
     min_shtyll(a);
     writeln ('--------------------');
     max_shtyll(a);
     readln ;
  END.

-------------------------------------------------------------------

Program ushtrimi5;
const
  m=3;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure shume_diagonale (x:matrice);
var
 sh:integer;
begin
 sh:=0;
 for i:=1 to m do
  for j:=1 to n do
   if i=j then
   begin
   sh:= sh + x[i,j];
   end;
  writeln ('Shuma e elementeve te diagonales kryesore eshte ',sh);
 end;


  BEGIN
     krijo_mat();
     afisho(a);
     shume_diagonale(a);
     readln ;
  END.
---------------------------------------------------------------------------
Program ushtrimi6;
const
  m=3;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure diagonale_kryesore (x:matrice);
begin

 for i:=1 to m do
  for j:=1 to n do
   if i=j then
    x[i,j]:=0;

 writeln ('Afishojme matricen me diagonale gjitha 0') ;
   for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
end;


  BEGIN
     krijo_mat();
     afisho(a);
     diagonale_kryesore(a);
     readln ;
  END.
----------------------------------------------------------
Program ushtrimi7;
const
  m=3;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j,k:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;
  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

  procedure rendit_shtyllat (x:matrice);
  var t:integer;
  begin
    for j:= 1 to n do
    begin
       for i:= 1 to m-1 do
          for k:= i+1 to m do
           if x[i,j]> x[k,j] then
            begin
              t:= x[i,j];
              x[i,j]:= x[k,j];
              x[k,j]:= t;
           end;
      end;
    writeln ('Tabela, shtyllat e se ciles jane te renditura eshte ');
    for i:= 1 to m do
     begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
 end;

  BEGIN
     krijo_mat();
     afisho(a);
     rendit_shtyllat(a);
     readln ;
  END.
-----------------------------------------------------------------


Program ushtrimi8;
const
  m=3;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

function verifiko(C:matrice):boolean;
begin
 for i:=1 to m do
   for j:=1 to n do
      if (i>j) and (C[i,j]<>0)  then
        begin
          verifiko:=false;
          writeln('matrica nuk eshte trekendore e siperme');
          exit
        end; 
      verifiko:=true;
      writeln('matrica  eshte trekendore e siperme');
end;

  BEGIN
     krijo_mat();
     afisho(a);
     verifiko(a);
     readln ;
  END.


-----------------------------------------------------------------------

Program ushtrimi9;
const
  m=3;n=3;
type
 matrice= array[1..m,1..n]of integer;
 var
  i,j:integer;
  a:matrice;

  procedure krijo_mat();
  begin
   writeln ('Jep vlerat e matrices');
   for i:= 1 to m do
    for j:= 1 to n do
     readln (a[i,j]);
  end;

  procedure afisho (x:matrice);
  begin
   writeln ('Po aifshojme elementet e matrices ');
    for i:= 1 to m do
    begin
       for j:= 1 to n do
       write (x[i,j], ' ');
       writeln ;
   end;
  end;

procedure shume_diagonalesekondare (x:matrice);
var
 sh:integer;
begin
 sh:=0;
 for i:=1 to m do

   begin
   sh:= sh + X[i,n-i+1];
   end;
  writeln ('Shuma e elementeve te diagonales sekondare eshte ',sh);
 end;


  BEGIN
     krijo_mat();
     afisho(a);
     shume_diagonalesekondare(a);
     readln ;
  END.