program ushtrimi1;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme tabelen');
  for i:=1 to n do
   write (x[i],' ');
 end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     readln ;
end.

----------------------------
program ushtrimi2;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme tabelen');
  for i:=1 to n do
   write (x[i],' ');
 end;

procedure shume_tabele(x:A);
var
 sh:integer;
begin
 sh:=0;
 for i:=1 to n do
  begin
   sh:= sh + x[i];
  end;
  writeln ('--------------------');
  writeln ('Shuma e elementeve te tabeles eshte ', sh);
end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     shume_tabele(tab);
     readln ;
end.
---------------------------------------------------

program ushtrimi3;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme tabelen');
  for i:=1 to n do
   write (x[i],' ');
 end;

procedure shume_elem_pozitiv(x:A);
var
 sh:integer;
begin
 sh:=0;
writeln ('Elementet pozitiv jane ');
 for i:=1 to n do
 if x[i] > 0 then
  begin
   write (x[i], ' ');
   sh:= sh + x[i];
  end;
  writeln ;
  writeln ('--------------------');
  writeln ('Shuma e elementeve pozitiv te tabeles eshte ', sh);
end;

procedure shume_elem_negativ(x:A);
var
 sh:integer;
begin
 sh:=0;
writeln ('Elementet negativ jane ');
 for i:=1 to n do
 if x[i] < 0 then
  begin
   write (x[i], ' ');
   sh:= sh + x[i];
  end;
  writeln ;
  writeln ('--------------------');
  writeln ('Shuma e elementeve negativ te tabeles eshte ', sh);
end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     shume_elem_pozitiv(tab);
     shume_elem_negativ(tab);
     readln ;
end.
--------------------------------------------------------------------

program ushtrimi4;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles');
  for i:=1 to n do
  write (x[i],' ');
  writeln;
  for i:=1 to n do
  if x[i]=i then
   writeln ('Vlera ne indexin ', i, ' eshte ' ,x[i]);
 end;


BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;

     readln ;
end.
-------------------------------------------

program ushtrimi5;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles');
  for i:=1 to n do
  write (x[i],' ');
  writeln;
  for i:=1 to n do
  if x[i]=i then
   writeln ('Vlera ne indexin ', i, ' eshte ' ,x[i]);
 end;

 function sa_nr_tek (x:A):integer;
 var
  sahere:integer;
 begin
  sahere:= 0;
  for i:=1 to n do
  if x[i] mod 2 <> 0 then
   begin
    sahere:= sahere + 1;
   end;
  sa_nr_tek:= sahere;
 end;

 function sa_nr_cift (x:A):integer;
 var
  sahere:integer;
 begin
  sahere:= 0;
  for i:=1 to n do
  if x[i] mod 2 = 0 then
   begin
    sahere:= sahere + 1;
   end;
  sa_nr_cift:= sahere;
 end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     writeln ('Tabele ka ', sa_nr_tek(tab), ' nr tek');
     writeln ('Tabele ka ', sa_nr_cift(tab), ' nr cift');
     readln ;
end.
------------------------------------------------------

program ushtrimi6;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i,vl:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles');
  for i:=1 to n do
  write (x[i],' ');
 end;

procedure pozicionin_ku_ndodhet(x:A; v:integer);
var ugjet:boolean;
poz:integer;
begin
ugjet:= false;
 for i:=1 to n do
  if x[i]=v then
  begin
    ugjet:= true;
    poz:= i;
  end;
  if ugjet = true then
   writeln ('Vlera ', v, ' ndodhet ne pozicionin ', poz, '  te tabeles')
 else
  writeln ('Vlera ', v, ' nuk ndodhet ne tabele');
end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     writeln ('Jepni vleren qe doni te kerkoni');
     readln (vl);
     pozicionin_ku_ndodhet(tab, vl);
     readln ;
end.
-------------------------------------------

program ushtrimi7;
const
 n=5;
type
 T= array [1..n] of integer;
var
 a,b:T;
 i,vl:integer;
procedure lexo_tabele1();
begin
 writeln ('Jepni elementet e tabeles se pare');
 for i:= 1 to n do
 readln (a[i]) ;
end;
procedure lexo_tabele2();
begin
 writeln ('Jepni elementet e tabeles se dyte');
 for i:= 1 to n do
 readln (b[i]) ;
end;

procedure afisho_tabele1(x:T);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles se pare');
  for i:=1 to n do
  write (x[i],' ');
 end;

 procedure afisho_tabele2(x:T);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles se dyte');
  for i:=1 to n do
  write (x[i],' ');
 end;

function te_barabarte(x:T;y:T):boolean;
var
 te_barb:boolean;
begin
 for i:=1 to n do
  if x[i]= y[i] then
   te_barb:= true
   else
   te_barb:= false;
 te_barabarte:= te_barb;
end;

BEGIN
     lexo_tabele1();
     lexo_tabele2();
     afisho_tabele1(a) ;
     writeln;
     afisho_tabele2(b) ;
     writeln;
     writeln ('Barazia e dy tabelave eshte ',te_barabarte(a,b));
     readln ;
end.
--------------------------------------------------------------
program ushtrimi8;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i,j,t:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles');
  for i:=1 to n do
  write (x[i],' ');
 end;

procedure rendit(x:A);
begin
  for i:=1 to n-1 do
   for j:=i+1 to n do
   begin
  if x[i]< x[j] then
  begin
    t:= x[i];
    x[i]:= x[j];
    x[j]:=t;
  end;
  end;
  writeln ('Vektori i renditur eshte ');
  for i:=1 to n do
  write (x[i],' ');
end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     rendit(tab);
     readln ;
end.

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

program ushtrimi9;
const
 n=5;
type
 A= array [1..n] of integer;
var
 tab:A;
 i,vl:integer;
procedure lexo_tabele();
begin
 writeln ('Jepni elementet e tabeles');
 for i:= 1 to n do
 readln (tab[i]) ;
end;

procedure afisho_tabele(x:A);
 begin
  writeln ('--------------------');
  writeln ('Po afishojme gjitha elementet e tabeles');
  for i:=1 to n do
  write (x[i],' ');
 end;

procedure elem_pare_negativ(x:A);
var
poz:integer;
begin
  for i:=1 to n do
  if x[i]< 0 then
  begin
    poz:= i;
    break;
  end;
  writeln ('Elementi i pare negativ ndodhet ne indeksin ', poz);
end;

BEGIN
     lexo_tabele();
     afisho_tabele(tab) ;
     writeln;
     elem_pare_negativ(tab);
     readln ;
end.