2# Ucitvanje niza od 5 ocena i ispisivnaje

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

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

 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]);
        end;

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