#3 Niz elemenata prosek suma funkc procedure

program funkcije_nizovi;
uses crt;
var
  jaja:array[1..5] of integer;

  procedure niz_unos(max_dan:integer);
   var
    i:integer;
   begin
    writeln('Molim vas unestie jaja');
     for i:=1 to max_dan do
 begin
  write('jaja[',i,']=');
  readln(jaja[i]);
 end;
   end;

   procedure niz_ispis(max_dan:integer);
   var
    i:integer;
   begin
    writeln('Ispis svih elemenata niza');
     for i:=1 to max_dan do
 begin
  writeln('jaja[',i,']=',jaja[i]);
 end;
   end;

   function niz_suma(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_suma:=0;
     for i:=1 to max_dan do
 begin
  niz_suma:=niz_suma+jaja[i];
 end;

   end;

   function niz_prosek(max_dan:integer):real;
    begin
niz_prosek:=niz_suma(5)/5;
    end;

// dovde funkcije za dva ostalo za vece ocene
  // najmanji element niza
function niz_najmanji(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_najmanji:=jaja[1];
     for i:=1 to max_dan do
 begin
 if niz_najmanji>jaja[i] then niz_najmanji:=jaja[i];
 end;
   end;

  function niz_najveci(max_dan:integer):integer;
   var
    i:integer;
   begin
    niz_najveci:=jaja[1];
     for i:=1 to max_dan do
 begin
 if niz_najveci<jaja[i] then niz_najveci:=jaja[i];
 end;
   end;

   function niz_rastuci(max_dan:integer):integer;
   var
    korpica,i,j:integer;
   begin
     for i:=1 to max_dan-1 do
 begin
  for j:=i+1 to max_dan do
   begin
 if jaja[i]>jaja[j] then
               begin
korpica:=jaja[i];
jaja[i]:=jaja[j];
jaja[j]:=korpica;
               end;
end;

 end;
   end;


  function niz_opadajuci(max_dan:integer):integer;
   var
    korpica,i,j:integer;
   begin
     for i:=1 to max_dan-1 do
 begin
  for j:=i+1 to max_dan do
   begin
 if jaja[i]<jaja[j] then
               begin
korpica:=jaja[i];
jaja[i]:=jaja[j];
jaja[j]:=korpica;
               end;
end;

 end;
   end;

   // glavni program
   begin
   clrscr();
    // unos jajaj u niz
niz_unos(5);

   writeln('suma=', niz_suma(5));
   writeln('prosek=',niz_prosek(5):6:2);

   // dovde za 2
   writeln('najmanji el. niza=',niz_najmanji(5));
   writeln('najveci el. niza=',niz_najveci(5));
   // dovde za 3,4


   // ostalo za 5
    writeln('Ispis rastuceg niza');
niz_rastuci(5);
 niz_ispis(5);
writeln('Ispis opadajuceg niza');
niz_opadajuci(5);
niz_ispis(5);


readln();


  end.