3# Niz ocena ispisati koliko ima parnih i neparnih ocena u nizu

program  while_parni_neparni;
  uses crt;
   // uneti 5 ocena u niz, proveriti koliko ima neparnih i parnih ocena.
   var
    ocene:Array[1..5] of integer;
    i:integer;

    paran:integer;
neparan:integer;

begin
  clrscr();

   // unos ocena u niz sa petljom while
   writeln('Molimo vas unesite ocene za 5 ucenika');
    i:=1;
    while(i<=5) do
      begin
        write('ocene[',i,']=');
        readln(ocene[i]);

   // provera parnih i neparnih
if(ocene[i] mod 2 =0) then paran:=paran+1
 else neparan:=neparan+1;
        i:=i+1;
      end;

     // ispis parnih i neparnih

writeln('parnih:',paran);
writeln('neparnih:',neparan);
  readln();
end.