#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.

#3 Funkcije i procedure u paskalu basic

program funkcije;
uses crt;
var
  j:integer;
 procedure stampaj_ime;
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln('perica');
end;
  end;

procedure stampaj_ime2(ime:string);
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln(ime);
end;
  end;

  function saberi(br1:integer;br2:integer):integer;
    begin
 saberi:=br1+br2;
end;
 begin
 clrscr();
  stampaj_ime2('jovica');
  stampaj_ime2('djurica');
  writeln(saberi(2,3));
 readln();
 end.

#4 Sortiranje niza po rastucem i opadajucem redosledu

program niz_mani_veci;

 uses crt;

  var
     ocene:Array[1..5] of integer;
i,j:integer;

najmanji, najveci, suma:integer;

prosek:real;
korpica:integer;

  begin
  clrscr();

   // uneti ocene u niz
   writeln('molim vas unesite ocene u niz');

   for i:=1 to 5 do
    begin
write('ocena[',i,']=');
readln(ocene[i]);
// izracunati sumu
suma:=suma+ocene[i];
end;
// izracunati prosek
   prosek:=suma/5;

 
   // pronaci najmanjeg
   najmanji:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najmanji>ocene[i]) then
 begin
  najmanji:=ocene[i];
 end;
  end;
   // pronaci najveceg
   najveci:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najveci<ocene[i])  then
 begin
  najveci:=ocene[i];
 end;
  end;

// ******************************************  Sortiranje sa ispisima    *********************************  
// sortiranje niza u rastucem redosledu
for i:=1 to 4 do
  begin
    for j:=i+1 to 5 do
begin
         if (ocene[i]>ocene[j]) then
  begin
   korpica:=ocene[i];
ocene[i]:=ocene[j];
ocene[j]:=korpica;
  end;
end;
  end;
// ispis svih elemenata
   writeln('ispis svih elemenata rastuceg niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;


//sortiranje niza u opadajucem redosledu
for i:=1 to 4 do
  begin
    for j:=i+1 to 5 do
begin
         if (ocene[i]<ocene[j]) then
  begin
   korpica:=ocene[i];
ocene[i]:=ocene[j];
ocene[j]:=korpica;
  end;
end;
  end;
// ispis svih elemenata
   writeln('ispis svih elemenata opadajuceg niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;

// ****************************************** END  Sortiranje sa ispisima    *********************************
   // ispis svih rezultata
   writeln('suma=',suma);
   writeln('prosek=',prosek:6:2);
   writeln('najmanji=',najmanji);
   writeln('najveci=',najveci);
  readln();
  end.

3# Niz najmanji, njaveci element, suma prosek

program niz_mani_veci;

 uses crt;

  var
     ocene:Array[1..5] of integer;
i,j:integer;

najmanji, najveci, suma:integer;

prosek:real;


  begin
  clrscr();

   // uneti ocene u niz
   writeln('molim vas unesite ocene u niz');

   for i:=1 to 5 do
    begin
write('ocena[',i,']=');
readln(ocene[i]);
// izracunati sumu
suma:=suma+ocene[i];
end;
// izracunati prosek
   prosek:=suma/5;

   // ispis svih elemenata
   writeln('ispis svih elemenata niza ocena');
   for i:=1 to 5 do
    begin
writeln('ocena[',i,']=',ocene[i]);
end;
   // pronaci najmanjeg
   najmanji:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najmanji>ocene[i]) then
 begin
  najmanji:=ocene[i];
 end;
  end;
   // pronaci najveceg
   najveci:=ocene[1];
     for i:=2 to 5 do
  begin
   if (najveci<ocene[i])  then
 begin
  najveci:=ocene[i];
 end;
  end;
   // ispis svih rezultata
   writeln('suma=',suma);
   writeln('prosek=',prosek:6:2);
   writeln('najmanji=',najmanji);
   writeln('najveci=',najveci);
  readln();
  end.