3# Suma i prosek niza ocena for petlja

program niz;
 uses crt;
 // niz ocena od ucenika uz pomoc for petlje ucitavnaje i ispisivnaje
 // racunanje sume i proseka
 var

  ocene:Array[1..5] of integer;
  i:integer; // brojac u petlji
  suma:integer;
  prosek:real;

 begin
    clrscr();

    //unesi ocene u niz
    writeln('moliom vas unesite ocene od 5 ucenika');
      for i:=1 to 5 do
        begin
           write('ocene[',i,']=');
           readln(ocene[i]);
           suma:=suma+ocene[i];
        end;
      writeln();// prazna red

      writeln('racunaje proseka');
      prosek:=suma/5;
      writeln('suma=',suma);
      writeln('prosek=',prosek:6:2);

      writeln();//prazan red

    //ispisi ocene iz niza
    writeln('Ispis svih ocena iz niza');
    for i:=1 to 5 do
     begin
        writeln('ocene[',i,']=',ocene[i]);
     end;
    readln();
 end.