3# While niz od 10 ocena suma,prosek, ispis

program  while_niz_ocena;
  uses crt;
   // uneti 10 realnih ocena u niz, izracunati sumu, prosek i ispisati na ekran.
   var
    ocene:Array[1..10] of Real;
    i:integer;

    suma:Real;
    prosek:Real;

begin
  clrscr();

   // unos ocena u niz sa petljom while
   writeln('Molimo vas unesite ocene za 10 ucenika');
    i:=1;
    while(i<=10) do
      begin
        write('ocene[',i,']=');
        readln(ocene[i]);
        suma:=suma+ocene[i];
        i:=i+1;
      end;
   // izracunati i ispisati sumu i prosek
   prosek:=suma/10;
   writeln();
   writeln('suma=',suma:6:2);
   writeln('prosek=',prosek:6:2);

   // ispis svih ocena iz niza
     i:=1;
    while(i<=10) do
      begin
        writeln('ocene[',i,']=',ocene[i]:6:2);
        i:=i+1;
      end;

  readln();
end.