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