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.